inst/develop/setREnvir.R

In REddyProc: Data processing and plotting utilities of (half-)hourly eddy-covariance measurements

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#+++ Developers' R script +++
#+++ (Re-)set user specific R environment
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Author: AMM

# Remove all objects in R environment (but Develop.b and Testing.b)
rm(list = ls(all=TRUE)[!ls(all=TRUE) %in% c('Develop.b', 'LongTest.b', 'ShortTest.b', 'TestData.F')])
if( sum(grepl('REddyProc', (.packages()))) == 1 )
  detach('package:REddyProc')
message('Start with empty R environment with REddyProc detached.')
gc() #garbage collect

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

# Set user specific R working directory
# AMM
if ( Sys.getenv('HOME') == '/Users/amoffat' ) { 
  setwd('/Users/amoffat/Projects/REddy/REddyProc')
  DirFluxnet.s <- paste('/Volumes/BGI/data/DataStructureMDI/DATA/site/Fluxnet/halfhourly/level5_new_v2/Data/single_sites/')
  DirFluxnet.s <- paste('/Users/amoffat/Data/Fluxnet/level5_new_nc')
  # KS
} else if ( Sys.getenv('HOME') == '/Users/ksickel' ) { 
  setwd('/Users/ksickel/REddyProc')
  DirFluxnet.s <- paste('/Volumes/BGI/data/DataStructureMDI/DATA/site/Fluxnet/halfhourly/level5_new_v2/Data/single_sites/')
# Unknown
} else if ( Sys.getenv('HOME') == 'C:/Users/ksickel/Documents' ) { 
  setwd('D:/my_R/REddyProc')
  DirFluxnet.s <- paste('L:/data/DataStructureMDI/DATA/site/Fluxnet/halfhourly/level5_new_v2/Data/single_sites/')
# Unknown
} else {
  stop('R working directory could not be set, unkown home directory.')
}
message('Working directory set to:', getwd())