seq_split <- function(sequence, n_splits) {
groups <- cut(seq_along(sequence), breaks = n_splits, labels = FALSE)
split_sequence <- split(sequence, groups)
return(split_sequence)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.