Nothing
#' Settings Button
#'
#' @param id HTML id selector of the button
#' @param label Label to show on the button
#' @param contents \code{\link[shiny]{tagList}} to show when clicking the button
#'
#' @noRd
settingsDropdownButton <- function(id, label, contents) {
div(
class = "col px-2",
div(
tags$button(
id = id,
type = "button",
class = "btn btn-block btn-secondary dropdown-toggle",
`data-toggle` = "dropdown",
`aria-expanded` = "false",
label
),
contents
)
)
}
PAGE_TYPES <- c(
"Standard Page" = "bootstrapPage",
"Fill Page" = "fillPage",
"Fixed Page" = "fixedPage",
"Fluid Page" = "fluidPage",
"Navigation Bar Page" = "navbarPage",
"Dashboard Page" = "dashboardPage"
)
PAGE_DESCRIPTIONS <- c(
"Standard Page" = "Basic Bootstrap Page",
"Fill Page" = "Bootstrap Page that always fills the height and width of the browser window",
"Fixed Page" = "Bootstrap Page that maintains a fixed width for content on the page",
"Fluid Page" = "Bootstrap Page that updates the scales the width of the content dependent on page size",
"Navigation Bar Page" = "Bootstrap Page that contains a top level navigation bar to toggle a set of tabs",
"Dashboard Page" = "AdminLTE3 Dashboard Page"
)
pageOptions <- function(ns) {
div(
`aria-labelledby` = ns("page_type_button"),
class = "dropdown-menu dropdown-menu-right dropdown-menu-wide page-type-dropdown clickable-dropdown",
tags$form(
class = "px-2",
radioButtons(ns("page_type"), NULL, PAGE_TYPES, selected = character(0L))
)
)
}
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.