# simple function to test if a function is Vectorized
is_vectorized <- function(x) {
is.function(x) && exists("FUN", environment(x), mode = "function") && exists("vectorize.args", environment(x))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.