sapSlim <- function (X, FUN) {
# Sapply slim version
answer <- lapply(X = X, FUN = FUN)
answer <- s2arraySlim(answer, higher = T)
return(answer)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.