label_ids <- function(labels) { nms <- names(labels) if (is.null(nms)) { return(rep("", length(labels))) } nms[is.na(nms)] <- "" nms }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.