#' @export
selectEveryNth <- function(x, k,length.out){
if(!missing(k)){
idx <- seq(1,length(x), by=k)
}else if(!missing(length.out)){
idx <- round(seq(1, length(x), length.out = length.out))
}
return(x[idx])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.