inst/examples/fixedTable.S

In jeroenooms/RObjectTables: User-level attach()'able table support

fixedTable <-
function()
{
  values <- list(x = 1:4, y = letters[1:5], cube = function(x) { x^3 } )

  objects <- function() {
    names(values)
  }
  
  get <-  function(name) {
    if(exists(name))
      values[[name]]
    else
      .Call("R_getUnboundValue", PACKAGE="RObjectTables")
  }

  exists <- function(name) {
    return(!is.na(match(name, names(values))))
  }

  return(list(assign=NULL, 
              get = get,
              exists = exists,
              remove = NULL,
              objects = objects
              ))
}