.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"))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.