has_attribute <- function(x, which) {
!is_null(attr(x, which, TRUE))
}
has_name <- function(x, which) {
length(which) == 1 && which %in% names(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.