R/AAAGlobalCache.R

In Sage-Bionetworks/rSynapseClient: Synapse R Client from Sage Bionetworks

#
# 
# Author: furia
###############################################################################


## package-local 'getter'
.getCache <-
  function(key)
{
  cache <- new("GlobalCache")
  cache@env[[key]]
}

## package-local 'setter'
.setCache <-
  function(key, value)
{
  cache <- new("GlobalCache")
  cache@env[[key]] <- value
}

.deleteCache <-
  function(keys)
{
  cache <- new("GlobalCache")
  indx <- which(keys %in% objects(cache@env))
  if(length(indx) > 0)
    rm(list=keys[indx], envir=cache@env)
}

as.environment.GlobalCache <-
  function(x)
{
  x@env
}