R: Use 'shinydashboardPlus' in 'shiny'

useShinydashboardPlus {shinyWidgets} | R Documentation

## Use 'shinydashboardPlus' in 'shiny'

### Description

Allow to use functions from 'shinydashboardPlus' into a classic 'shiny' app.

### Usage

    useShinydashboardPlus()

### Examples

    ## Not run:

    if (interactive()) {

    library(shiny)
    library(shinydashboard)
    library(shinydashboardPlus)
    library(shinyWidgets)

    # example taken from ?box

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

      # use this in non shinydashboardPlus app
      useShinydashboardPlus(),
      # -----------------

      tags$head(
       tags$style(
        HTML(
         'body {
           background-color: lightgrey;
          }
         '
        )
       )
      ),

      # boxPlus
      fluidRow(
       boxPlus(
         title = "Closable Box with dropdown",
         closable = TRUE,
         status = "warning",
         solidHeader = FALSE,
         collapsible = TRUE,
         enable_dropdown = TRUE,
         dropdown_icon = "wrench",
         dropdownItemList = dropdownItemList(
           dropdownItem(target = "http://www.google.com", name = "Link to google"),
           dropdownItem(target = "#", name = "item 2"),
           dropdownDivider(),
           dropdownItem(target = "#", name = "item 3")
         ),
         p("Box Content")
       ),
       boxPlus(
         title = "Closable box, with label",
         closable = TRUE,
         enable_label = TRUE,
         label_text = 1,
         label_status = "danger",
         status = "warning",
         solidHeader = FALSE,
         collapsible = TRUE,
         p("Box Content")
       )
      ),

      br(),

      # gradientBoxes
      fluidRow(
        gradientBox(
         title = "My gradient Box",
         icon = "fa fa-th",
         gradientColor = "teal",
         boxToolSize = "sm",
         footer = column(
           width = 12,
           align = "center",
           sliderInput(
             "obs",
             "Number of observations:",
             min = 0, max = 1000, value = 500
           )
         ),
         plotOutput("distPlot")
        ),
        gradientBox(
         title = "My gradient Box",
         icon = "fa fa-heart",
         gradientColor = "maroon",
         boxToolSize = "xs",
         closable = TRUE,
         footer = "The footer goes here. You can include anything",
         "This is a gradient box"
        )
      ),

      br(),

      # extra elements
      fluidRow(
      column(
       width = 6,
       timelineBlock(
         reversed = FALSE,
         timelineEnd(color = "danger"),
         timelineLabel(2018, color = "teal"),
         timelineItem(
           title = "Item 1",
           icon = "gears",
           color = "olive",
           time = "now",
           footer = "Here is the footer",
           "This is the body"
         ),
         timelineItem(
           title = "Item 2",
           border = FALSE
         ),
         timelineLabel(2015, color = "orange"),
         timelineItem(
           title = "Item 3",
           icon = "paint-brush",
           color = "maroon",
           timelineItemMedia(src = "http://placehold.it/150x100"),
           timelineItemMedia(src = "http://placehold.it/150x100")
         ),
         timelineStart(color = "gray")
        )
       ),
      column(
       width = 6,
       box(
         title = "Box with boxPad containing inputs",
         status = "warning",
         width = 12,
         fluidRow(
           column(
             width = 6,
             boxPad(
               color = "gray",
               sliderInput(
                 "obs2",
                 "Number of observations:",
                 min = 0, max = 1000, value = 500
               ),
               checkboxGroupInput(
                 "variable",
                 "Variables to show:",
                 c(
                   "Cylinders" = "cyl",
                   "Transmission" = "am",
                   "Gears" = "gear"
                 )
               ),

               knobInput(
                 inputId = "myKnob",
                 skin = "tron",
                 readOnly = TRUE,
                 label = "Display previous:",
                 value = 50,
                 min = -100,
                 displayPrevious = TRUE,
                 fgColor = "#428BCA",
                 inputColor = "#428BCA"
               )
             )
           ),
           column(
             width = 6,
             plotOutput("distPlot2", height = "200px"),
             tableOutput("data")
           )
         )
        )
       )
      )
    )

    server <- function(input, output, session) {

      output$distPlot <- renderPlot({
       hist(rnorm(input$obs))
      })

      output$distPlot2 <- renderPlot({
        hist(rnorm(input$obs2))
      })

      output$data <- renderTable({
        head(mtcars[, c("mpg", input$variable), drop = FALSE])
      }, rownames = TRUE)

    }

    shinyApp(ui, server)

    }

    ## End(Not run)

[Package shinyWidgets version 0.4.3 Index]