invoke_method <- function(ol, method_name, ...) {
n <- length(ol$x$calls)
ol$x$calls[[n+1]] <- list(
method = method_name,
args = list(...)
)
ol
}
camel_case <- function(x) {
gsub("_(\\w?)", "\\U\\1", x, perl = TRUE)
}
camel_case_keys <- function(x) {
names(x) <- names(x) %>% camel_case()
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.