#===========================================================================
# project : A Project
# script : A Script.r
# author : Vitor Chagas last updated : 2012.03.18
#===========================================================================
#---------------------------------------------------------------------------
# create & set work directory root
#---------------------------------------------------------------------------
# change as needed
workdir <- \'.\'
dir.create(workdir, recursive=TRUE)
setwd(workdir)
rm(workdir)
#---------------------------------------------------------------------------
# create folder tree (needed folders)
#---------------------------------------------------------------------------
dir.create(\'data\')
dir.create(\'doc\')
dir.create(\'graphs\')
dir.create(\'lib\')
dir.create(\'reports\')
#---------------------------------------------------------------------------
# install & load necessary packages
#---------------------------------------------------------------------------
necessary = c(\'XLConnect\')
installed = necessary %in% .packages(all.available = TRUE)
# install
if (length(necessary[!installed]) >=1)
install.packages(necessary[!installed])
# load
for(pkg in necessary)
library(pkg, character.only=TRUE)
rm(necessary, installed, pkg)
#---------------------------------------------------------------------------
# script start
#---------------------------------------------------------------------------