# generic dispatch for custom timbr function
timbr <- function(object, ...) UseMethod("timbr")
# generic dispatch for custom species function
species <- function(object, ...) UseMethod("species")
# standard timbr class membership function
is.timbr <- function(object) {
res <- FALSE
if (attr(object, 'class') == 'timbr') res <- TRUE
res
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.