Как включить то или иное подменю в Rshiny?

Я разрабатываю блестящее приложение с помощью пакета панели инструментов. В этом пункте меню есть 2 подменю, и приложение должно реагировать в соответствии с выбором подменю. Но без выбора подменю мои данные отображаются. Может ли кто-нибудь помочь мне решить эту проблему? Это использованный фрагмент кода. Заранее спасибо.

dashboardSidebar(
    sidebarMenu(
       menuItem('Modify',
                menuSubItem('Edit details', tabName = 'edit'),
                    )
      )),

    dashboardBody(
      tabItems(
        tabItem(tabName = 'edit', 
                hotable('hotable1'),
                downloadButton('downloadData', 'Download')
        )
      )

r shiny shinydashboard
person Nevedha Ayyanar    schedule 22.09.2018    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Я не думаю, что полностью понимаю ваш вопрос, но, насколько я понимаю, вы спрашиваете, почему таблица появляется при инициализации приложения без нажатия пользователем кнопки menuSubItem. Это поведение по умолчанию в Shiny Dashboard, приложение будет запускаться с первым menuSubItem в качестве значения по умолчанию, если вы хотите, чтобы конкретная menuSubItem в качестве начальной под-вкладки, что может быть достигнуто с помощью параметра selected в menuItem

Вот воспроизводимый пример, демонстрирующий такое же поведение, чтобы явно выделить это поведение, которое я использовал startExpanded = TRUE. Здесь вы можете заметить, что по умолчанию выбран первый subMenuItem. Подробнее о childfull menuItem () можно отнести здесь

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(), 
  dashboardSidebar(
    sidebarMenu(
      menuItem("Modify",startExpanded = TRUE,
               menuSubItem("Sub-item 1", tabName = "subitem1"),
               menuSubItem("Sub-item 2", tabName = "subitem2")
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem("subitem1", "Sub-item 1 tab content"),
      tabItem("subitem2", "Sub-item 2 tab content") 
    )
  )
)

server <- function(input, output, session) {

}

shinyApp(ui, server)
person Ravi Krishna    schedule 22.09.2018