DeleteAll <- function() rm(envir = .GlobalEnv, list = ls(envir = .GlobalEnv))
DeleteAllValues <- function() rm(envir = .GlobalEnv,
list = setdiff(ls(envir = .GlobalEnv), lsf.str(envir = .GlobalEnv)))
DeleteAllFunctions <- function() rm(envir = .GlobalEnv,
list = lsf.str(envir = .GlobalEnv))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.