Description Usage Arguments Note Author(s) Examples
This creates a right sidebar.
1 | rightSidebar(..., background = "dark", width = 230, .items = NULL)
|
... |
slot for rightSidebarTabContent. Not compatible with .items. |
background |
background color: "dark" or "light". |
width |
Sidebar width in pixels. Numeric value expected. 230 by default. |
.items |
Pass element here if you do not want to embed them in panels. Not compatible with ... |
Until a maximum of 5 rightSidebarTabContent inside! AdminLTE 2 does not support more panels.
David Granjon, dgranjon@ymail.com
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | 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) { }
)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.