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