File: cache.R

package info (click to toggle)
r-cran-fail 1.3-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 188 kB
  • sloc: sh: 9; makefile: 5
file content (12 lines) | stat: -rw-r--r-- 380 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
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)
  )
}