# utils-append_class.R
append_class <- function (x, class) {
if (class %in% class(x)) {
warning("x is already ", class, " class")
return(x)
}
class(x) <- append(class(x), class, 0)
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.