Hi all, Is it possible to incorporate sidebar/Filter option under the dashboard body.
library(ggplot2)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(
sidebarMenu(
menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
menuItem("Widgets", tabName = "widgets", icon = icon("th"))
)
),
dashboardBody()
tabItems(),
# First tab content
tabItem(tabName = "dashboard",
h2("dashboard tab content")
),
# Second tab content
tabItem(tabName = "widgets",
h2("Widgets tab content")
)
)
)
)
server <- function(input, output) {
}
shinyApp(ui, server)