vnapply <- function(X, FUN, ...) {
vapply(X, FUN, ..., numeric(1))
}
vcapply <- function(X, FUN, ...) {
vapply(X, FUN, ..., character(1))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.