Learn R Programming

shinydashboardPlus (version 0.6.0)

rightSidebar: AdminLTE2 dashboard right sidebar

Description

This creates a right sidebar.

Usage

rightSidebar(..., background = "dark", width = 230)

Arguments

...

slot for rightSidebarTabContent.

background

background color: "dark" or "light".

width

Sidebar width in pixels. Numeric value expected. 230 by default.

Examples

Run this code
# NOT RUN {
if (interactive()) {
 library(shiny)
 library(shinydashboard)
 shinyApp(
   ui = dashboardPagePlus(
     header = dashboardHeaderPlus(
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears"
     ),
     sidebar = dashboardSidebar(),
     body = dashboardBody(),
     rightsidebar = rightSidebar(
      background = "dark",
       rightSidebarTabContent(
        id = 1,
        icon = "desktop",
        title = "Tab 1",
        active = TRUE,
        sliderInput(
         "obs", 
         "Number of observations:",
          min = 0, max = 1000, value = 500
         )
       ),
       rightSidebarTabContent(
        id = 2,
        title = "Tab 2",
        textInput("caption", "Caption", "Data Summary")
       ),
       rightSidebarTabContent(
        id = 3,
        title = "Tab 3",
        icon = "paint-brush",
        numericInput("obs", "Observations:", 10, min = 1, max = 100)
       )
     ),
     title = "Right Sidebar"
   ),
   server = function(input, output) { }
 )
}
# }

Run the code above in your browser using DataLab