#' @keywords internal
group_consecutive_integers <- function(x) {
breaks = c(0, which(diff(x) != 1), length(x))
consec = sapply(seq(length(breaks) - 1), function(i) x[(breaks[i] + 1):breaks[i+1]])
return (consec)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.