newEnv <- function (...,class.as.character) {
args.call <- as.list(match.call())[-1]
names.call <- names(args.call)
if (is.null(names.call))
names.call <- rep("", length(args.call))
class <- if(missing(class.as.character)) as.character(args.call[nchar(names.call) == 0]) else class.as.character
names.call <- names.call[nchar(names.call) > 0]
obj <- new.env()
for (nm in names.call) assign(nm,eval.parent(args.call[[nm]]),envir=obj)
class(obj) <- class
obj
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.