library(reshape2)
library(ggplot2)
library(data.table)
library(Coldbir)
require(ggthemes)
require(markdown)
.CDB <- cdb(.help_args$path, type = "f")
.VARIABLES <- get_vars(.CDB, dims = T)
.VARIABLES[ , dims_label := as.character(dims)]
.VARIABLES$id <- rownames(.VARIABLES)
.UNIQUE_VARIABLES <- unique(.VARIABLES$variable)
# Add variable names from documentation
#col <- "title" # title name in documentation
v_names <- sapply(.UNIQUE_VARIABLES, function(x) {
title <- tryCatch(get_doc(.CDB, x)[[1]], error = function(e) NULL)
if (is.null(title)) {
title <- x
} else {
title <- paste0(x, ": ", title)
}
return(title)
})
# Choices for selectInput input.variable
.UNIQUE_VARIABLES <- setNames(as.list(.UNIQUE_VARIABLES), v_names)
v_names <- NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.