Nothing
to_camel_case <- function(x) {
gsub("_(\\w?)", "\\U\\1", x, perl = TRUE)
}
keys_to_camel_case <- function(x) {
stats::setNames(x, to_camel_case(names(x)))
}
compact <- function(x) {
x[!sapply(x, is.null)]
}
# Append a list (y) to a list of lists (x)
push <- function(x, y) {
c(x, list(y))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.