# id generator
#
#' @export
id_gen <- function(...) {
l <- vapply(list(...), function(x) as.character(x), character(1L))
paste(l, collapse = "__")
}
# remove NULL from list
#' @export
compact <- function(x) {
retx <- vapply(x, function(y) return(is.null(y)||is.na(y)), logical(1L))
return(x[!retx])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.