check_character <- function(...) {
args <- list(...)
if (!lapply(args, is.character) %>% unlist %>% all()) {
stop("All must be character.")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.