#' @export
trim_compids <- function(x){
n <- min(length(x),10)
x1 <- head(x,n)
x2 <- tail(x,-n)
x1 <- x1[!duplicated(x1)]
x <- c(x1,x2)
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.