Shiny / semantic.dashboard: реактивное меню с sidebarMenuOutput не работает должным образом

Question

Мне не удается правильно отобразить вкладки при использовании реактивного меню боковой панели с пакетом semantic.dashboard. Принимая во внимание, что он работает с эквивалентными функциями из shinydashboard.

Если вы попытаетесь запустить код, предоставленный один раз с пакетом semantic.dashboard и один раз с shinydashboard. Вы увидите, что он работает с shinydashboard, но не с аналогичным semantic.dashboard.

Это касается функций: sidebarMenuOutput и renderMenu.

В semantic.dashboard вкладки не отображаются должным образом

library(shiny)
library(semantic.dashboard)
# Define UI for application that draws a histogram
ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "dashboard",
              h2("Dashboard tab content")
      ),

      tabItem(tabName = "widgets",
              h2("Widgets tab content")
      )
    )
  )
)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("calendar")),
      menuItem("Widgets", tabName = "widgets", icon = icon("calendar"))
    )
  })
}

shinyApp(ui, server)

Ожидаемый результат: возможность щелкнуть элемент и отобразить соответствующую вкладку. Фактический результат: вкладки не отображаются

PS: минимальный пример взят из https://rstudio.github.io/shinydashboard/structure.html раздела Динамический контент