Cache = function() {
ee = new.env(parent = emptyenv())
keys = function() ls(ee, all.names = TRUE)
list(
keys = keys,
get = function(key) get(key, envir = ee),
put = function(key, value) assign(key, value, envir = ee),
rm = function(keys) { x = intersect(keys, keys()); rm(list = x, envir = ee); x },
exists = function(key) exists(key, envir = ee)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.