shinydashboard - tabName не распознан?

Question

Код ниже всегда отображает текст «Имя вкладки = x» и не изменяется, если в меню боковой панели выбрана вкладка «y». что не так с этим кодом? Идея состоит в том, чтобы просто отображать другую подпись при выборе.

App.R

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    title = "Shiny Dashboard Test"
  ),
  dashboardSidebar(
    sidebarMenu(id = 'sidebarmenu',
            menuItem('x', tabName = 'x', icon = icon('line-chart')),
            menuItem('y', tabName = 'y',
                     icon = icon('line-chart'),
                     menuItem('a',
                              tabName = 'a',
                              icon = icon('line-chart')),
                     menuItem('b',
                              tabName = 'b',
                              icon = icon('line-chart'),
                              menuSubItem('l',
                                          tabName = 'l',
                                          icon = icon('line-chart')),
                              menuSubItem('m',
                                          tabName = 'm',
                                          icon = icon('line-chart'))),
                     menuItem('c',
                              tabName = 'c',
                              icon = icon('line-chart'))
            ))



  ),

dashboardBody(

tabItems(

  tabItem(tabName = "x",
          h2("Tab Name = x")),

  tabItem(tabName = "y",
          h2("Tab Name = y"))


  )
))

server <- function(input, output) { }

shinyApp(ui, server)