drop_col <- function(df,...){
col <- c(...)
if (all(sapply(col,is.numeric))){
df[,-col,drop=FALSE]
}else if (all(sapply(col,is.character))){
df[,set::not(colnames(df),col),drop=FALSE]
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.