Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #===========================================================================
- # 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
- #---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement