inst/extdata/CreatePackageExamples.R

srcdir<-utils::getSrcDirectory(function(){})

tr1<-readRDS(file.path(srcdir,"GWSDAT_Basic_Example.rds"))
tr1$csite$DO_NOT_MODIFY<-TRUE
tr2<-readRDS(file.path(srcdir,"GWSDAT_Example.rds"))
tr2$csite$DO_NOT_MODIFY<-TRUE

out<-list()
out[[1]]<-tr1$csite
out[[2]]<-tr2$csite

saveRDS(out,file.path(srcdir,"GWSDAT_Examples.rds"))

Try the GWSDAT package in your browser

Any scripts or data that you put into this service are public.

GWSDAT documentation built on Feb. 6, 2026, 9:07 a.m.