R/zzz.R

In pik-piam/geodata: Landuse geodata library

.onAttach <- function(libname,pkgname) {
  
  source(system.file("extdata","config.cfg",package = "geodata"))
  
  geodata$read$EsaCci <<- utils::read.csv(system.file("extdata","classesEsaCci.csv",package = "geodata"))
  geodata$read$NLCD <<- utils::read.csv(system.file("extdata","classesNLCD.csv",package = "geodata"))
  geodata$read$NLCD1992 <<- utils::read.csv(system.file("extdata","classesNLCD1992.csv",package = "geodata"))
  geodata$read$SERVIR <<- utils::read.csv(system.file("extdata","classesSERVIR.csv",package = "geodata"))


  #set options for the raster package
  raster::rasterOptions(tmpdir=geodata$config$tempfolder, progress="text")
}