useShinydashboard: Use 'shinydashboard' in 'shiny'

In Metropolitan-Council/planting.shade: Tree planting and preservation prioritization tool

Use 'shinydashboard' in 'shiny'

Description

Allow to use functions from 'shinydashboard' into a classic 'shiny' app, specifically valueBox, infoBox and box.

Usage

useShinydashboard()

Author(s)

ShinyWidgets authors

Examples

if (interactive()) {
  library(shiny)
  library(shinydashboard)
  library(shinyWidgets)

  # example taken from ?box

  ui <- fluidPage(
    tags$h2("Classic shiny"),

    # use this in non shinydashboard app
    setBackgroundColor(color = "ghostwhite"),
    useShinydashboard(),
    # -----------------

    # infoBoxes
    fluidRow(
      infoBox(
        "Orders", uiOutput("orderNum2"), "Subtitle",
        icon = icon("credit-card")
      ),
      infoBox(
        "Approval Rating", "60%",
        icon = icon("chart-line"), color = "green",
        fill = TRUE
      ),
      infoBox(
        "Progress", uiOutput("progress2"),
        icon = icon("users"), color = "purple"
      )
    ),

    # valueBoxes
    fluidRow(
      valueBox(
        uiOutput("orderNum"), "New Orders",
        icon = icon("credit-card"),
        href = "http://google.com"
      ),
      valueBox(
        tagList("60", tags$sup(style = "font-size: 20px", "%")),
        "Approval Rating",
        icon = icon("chart-line"), color = "green"
      ),
      valueBox(
        htmlOutput("progress"), "Progress",
        icon = icon("users"), color = "purple"
      )
    ),

    # Boxes
    fluidRow(
      box(
        status = "primary",
        sliderInput("orders", "Orders", min = 1, max = 2000, value = 650),
        selectInput("progress", "Progress",
          choices = c(
            "0%" = 0, "20%" = 20, "40%" = 40, "60%" = 60, "80%" = 80,
            "100%" = 100
          )
        )
      ),
      box(
        title = "Histogram box title",
        status = "warning", solidHeader = TRUE, collapsible = TRUE,
        plotOutput("plot", height = 250)
      )
    )
  )

  server <- function(input, output, session) {
    output$orderNum <- renderText({
      prettyNum(input$orders, big.mark = ",")
    })

    output$orderNum2 <- renderText({
      prettyNum(input$orders, big.mark = ",")
    })

    output$progress <- renderUI({
      tagList(input$progress, tags$sup(style = "font-size: 20px", "%"))
    })

    output$progress2 <- renderUI({
      paste0(input$progress, "%")
    })


    output$plot <- renderPlot({
      hist(rnorm(input$orders))
    })
  }

  shinyApp(ui, server)
}

Metropolitan-Council/planting.shade documentation built on Feb. 25, 2024, 3:15 a.m.