R/storeData.R

In pik-piam/validation: MAgPIE validation library

.storeData<-function(libdir,objects=c("valdata","mapping")){
  
  for(i in objects){
    object<-get(i,pos=sys.frame(sys.parent(n=1)))
    tmp<-try(save(object,file=path(libdir,"validation/data",i,ftype="rda")))
    if(is(tmp,"try-error")) stop("Could not save the object ", i," to path ",path(libdir,"validation/data",i,ftype="rda"))
  }
}