R/mod_settings_utils.R

In designer: 'Shiny' UI Prototype Builder

#' 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))
    )
  )
}