#Simply reference code, created by Mckay Davis
get_chars <- function(...) {
mods_str <- deparse(substitute(...))
rm_concat <- gsub("\\)", "", gsub("c\\(", "", mods_str))
mods_list <- as.list(strsplit(rm_concat, "\\,\\s")[[1]])
return(mods_list)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.