R блестящий обновленный расширенный пункт меню - PullRequest
Новая
       27

R блестящий обновленный расширенный пункт меню

0 голосов
/ 18 февраля 2020

Я создаю панель управления, содержащую несколько menuItem и menuSubItem , с некоторыми ссылками на go с одной страницы на другую. Мне удается сделать блестящую страницу изменения приложения, но если ссылка ссылается на подэлемент, я не знаю, как автоматически развернуть меню. В приведенном выше примере на главной странице есть кнопка для go непосредственно на другой странице. После нажатия страница обновляется должным образом, но меню не расширяется. 

require(shiny)
require(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      id = 'menu',
      menuItem("Home", tabName = "Homepage", icon = icon("home")),
      menuItem("Expand. item" , tabname = "main_item", icon = icon("table"),
               menuSubItem("sub item 1",tabName = "sub_item1"),menuSubItem("sub item 2",tabName = "sub_item2")))),

  dashboardBody(
    tabItems(
      tabItem(tabName = "Homepage", 
              fluidRow(h5('To access to sub item 1'),actionButton(inputId = 'bttn_sub1',label = 'Click here'))),
      tabItem(tabName = "sub_item1",h2("Sub item1"))
    )))

server <- function(input, output,session) {
  observeEvent(input$bttn_sub1,{updateTabItems(session, "menu", 'sub_item1')})
}
shinyApp(ui, server)

Я не знаю, есть ли возможность в Shiny обновить расширение меню или мне нужно использовать JS.

Есть идеи? Заранее спасибо.

...