R/zzz.R

In bleutner/RStoolbox: Remote Sensing Data Analysis

.onAttach <- function(libname = find.package("RStoolbox"), pkgname = "RStoolbox") {
  packageStartupMessage("This is version ", utils::packageVersion(pkgname), " of ", pkgname)

  lsat_rs <- terra::readRDS(system.file("external", "lsat.rds", package = pkgname))
  assign("lsat", lsat_rs, envir=as.environment("package:RStoolbox"))

  srtml_rs <- terra::readRDS(system.file("external", "srtm_lsat.rds", package = pkgname))
  assign("srtm", srtml_rs, envir=as.environment("package:RStoolbox"))

  rlogo_rs <- terra::readRDS(system.file("external", "rlogo.rds", package = pkgname))
  assign("rlogo", rlogo_rs, envir=as.environment("package:RStoolbox"))

  sen2_rs <- terra::readRDS(system.file("external", "sen2.rds", package = pkgname))
  assign("sen2", sen2_rs, envir=as.environment("package:RStoolbox"))

  srtms_rs <- terra::readRDS(system.file("external", "srtm_sen2.rds", package = pkgname))
  assign("srtm_sen2", srtms_rs, envir=as.environment("package:RStoolbox"))

}