Nothing
#' @title themePanel
#' @description UI production for the gg theme.
#' @param obj.in theme object in list form
#' @param obj.name name of theme object
#' @param session shiny session object
#' @return UI
#' @import shiny
#' @keywords internal
themePanel <- function(obj.in, obj.name, session = NULL) {
if (is.null(session)) {
ns <- function(x) x
} else {
ns <- session$ns
}
themeTips <- ggedit_opts$get("themeTips")
lapply(
names(obj.in),
FUN = function(item) {
do.call(
what = shiny::tabPanel,
args = list(
title = item,
shiny::fluidRow(
lapply(
utils::head(names(obj.in[[item]]), -1),
FUN = function(subitem) {
x <- obj.in[[item]][[subitem]]
txt.in <- unique(c(obj.name, item, subitem))
if (obj.name == "legend" & item %in% c("position", "justification")) {
txt.in <- c(obj.name, item, subitem)
}
obj <- shiny::column(
width = 3,
shiny::textInput(
inputId = ns(paste0(c("pop", txt.in), collapse = "")),
label = x["name"],
value = x["value"]
)
)
return(obj)
}
)
),
shiny::HTML(paste0(
paste(
paste0("<b>", names(themeTips[[obj.in[[item]]$call]]), "</b>"),
unlist(themeTips[[obj.in[[item]]$call]]),
sep = ": "
),
sep = "<br/>"
))
)
)
}
)
}
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.