#' empty the workspace keeping only the listed objects #' #' #'@export keep <- function(x = c()){ lss <- ls() lss <- c(lss[lss!=x],'lss') rm(list = lss) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.