R/RClosureTable.S

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

newRClosureTable <-
function(db)
{
   positions <- c("assign", "get", "exists", "remove", "objects",
                  "canCache", "attach", "detach")

   k <- list()
   k[positions] <- db[positions]

   db <- .Call("newRClosureTable", k, PACKAGE = "RObjectTables")

   db
}