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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.