Блестящие расширяющиеся элементы подменю вручную

Я пытаюсь вручную развернуть подменю на боковой панели в блестящей приборной панели. Функция updateTabItems позволяет мне перейти на вкладку, но не расширяет с ней меню.

Я ищу воспроизводимый ответ на вопрос здесь: как вручную развернуть подменю в блестящей боковой панели приборной панели, которая включает в себя хороший рабочий пример и ответы, которые, однако, не реализованы.


r javascript shiny shinydashboard shinyjs
person user7066213    schedule 28.11.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Вот рабочий код, основанный на упомянутый ответ. Обратите внимание, что в этом случае JavaScript использует tabName в качестве селектора для добавления класса active в древовидное меню.

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      actionButton('switchtab', 'Switch tab'),
      menuItem("Widgets", tabName = "widgets", icon = icon("th")),
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"),
               menuSubItem("Sub Menu 1",icon = icon("folder-open"), tabName = "subMenu1")
      )
    )
  ),
  dashboardBody(
    useShinyjs(), 
    extendShinyjs(text = "shinyjs.activateTab = function(name){
                  setTimeout(function(){
                  $('a[href$=' + '\"#shiny-tab-' + name + '\"' + ']').closest('li').addClass('active')
                  }, 200);
                  }"
    ),
    tabItems(
      tabItem(tabName = "subMenu1",
              h2("Dashboard tab / Sub menu 1 content")
      ),
      tabItem(tabName = "widgets",
              h2("Widgets tab content")
      )
    )
  )
  )

server <- function(input, output, session) {
  observeEvent(input$switchtab, {
    newtab <- switch(input$tabs,
                     "subMenu1" = "widgets",
                     "widgets" = "subMenu1"
    )
    updateTabItems(session, "tabs", newtab)
    if (newtab == "subMenu1")
      js$activateTab("dashboard")
  })
}

shinyApp(ui, server)
person Geovany    schedule 28.11.2016