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.
For more information on customizing the embed code, read Embedding Snippets.