Nothing
#' Canvas UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
SettingsModUI <- function(id) {
ns <- NS(id)
div(
class = "row settings-row row-cols-4",
settingsDropdownButton(
id = ns("page_type_button"),
label = "Page Type",
contents = pageOptions(ns)
),
settingsDropdownButton(
id = ns("code_button"),
label = "Code",
contents = div(
id = ns("code_dropdown"),
`aria-labelledby` = ns("code_button"),
class = "dropdown-menu dropdown-menu-wide clickable-dropdown",
CodeModUI(ns("code"))
)
),
settingsDropdownButton(
id = ns("template_button"),
label = "Templates",
contents = div(
id = ns("template_dropdown"),
`aria-labelledby` = ns("template_button"),
class = "dropdown-menu dropdown-menu-wide clickable-dropdown",
TemplateModUI(ns("template"))
)
),
settingsDropdownButton(
id = ns("options_button"),
label = "Settings",
contents = div(
id = ns("options_dropdown"),
`aria-labelledby` = ns("options_button"),
class = "dropdown-menu dropdown-menu-wide page-type-dropdown clickable-dropdown",
OptionsModUI(NULL)
)
)
)
}
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.