## This creates 4 tabs (dashboard, widget and 2 charts) on the sidebar allowing to switch the content of each tab.
header <- dashboardHeader()
sidebar <- dashboardSidebar(
sidebarUserPanel(
"User Name",
subtitle = a(href = "#", icon("circle", class = "text-success"), "Online"),
# Image file should be in www/ subdir
image = "userimage.png"
),
sidebarSearchForm(label = "Enter a number", "searchText", "searchButton"),
sidebarMenu(
# Setting id makes input$tabs give the tabName of currently-selected tab
id = "tabs",
menuItem(
"Dashboard",
tabName = "dashboard",
icon = icon("dashboard")
),
menuItem(
"Widgets",
icon = icon("th"),
tabName = "widgets",
badgeLabel = "new",
badgeColor = "green"
),
menuItem(
"Charts",
icon = icon("bar-chart-o"),
menuSubItem("Sub-item 1", tabName = "subitem1"),
menuSubItem("Sub-item 2", tabName = "subitem2")
)
)
)
body <- dashboardBody(tabItems(
tabItem("dashboard",
div(p(
"Dashboard tab content"
))),
tabItem("widgets",
"Widgets tab content"),
tabItem("subitem1",
"Sub-item 1 tab content"),
tabItem("subitem2",
"Sub-item 2 tab content")
))
shinyApp(
ui = dashboardPage(header, sidebar, body),
server = function(input, output) {
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.