Nothing
dummy_glob <- "REMOVE THIS DUMMY ENTRY"
# Remove undesired dummy entries from a list.
#
# @param x A list.
# @param dummy_txt The text that identifies a dummy entry.
#
# @return `x` with dummy elements removed.
rm_dummies <- function(x, dummy_txt = dummy_glob, return_logical = FALSE) {
keep_this <- !sapply(x, identical, dummy_txt)
if (return_logical) {
return(keep_this)
}
return(x[keep_this])
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.