#' split vector into equal parts
#' @param x vector
#' @param n elements per part
split <- function(x, n = 1) {
f <- ceiling(seq_along(x) / n)
x <- base::split(x, f)
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.