drop_items <- function(x, items = NULL) {
x[!(names(x) %in% items)]
}
keep_items <- function(x, items = NULL) {
x[names(x) %in% items]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.