## Tries to reproduce Github Issue: https://github.com/rstudio/shinydashboard/issues/54
# library(shiny)
# library(shinydashboard)
#
# sidebar <- dashboardSidebar(
# sidebarMenu(menuItem("foo",
# menuSubItem("foo_"), tabName = "tabfoo"))
# )
#
#
# ui <- dashboardPage(
# dashboardHeader(),
# sidebar,
# dashboardBody()
# )
#
# server <- function(input, output) {}
#
# shinyApp(ui, server)
# Not working example
library(shinydashboard)
library(shiny)
sidebar <- dashboardSidebar(
sidebarMenuOutput("sbMenu")
)
ui <- dashboardPage(
dashboardHeader(),
sidebar,
dashboardBody()
)
server <- function(input, output) {
output$sbMenu <- renderMenu({
sidebarMenu(menuItem("foo", menuSubItem("foo_"), tabName = "tabfoo"))
})
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.