Shiny 仪表板 - 在服务器生成的侧边栏 UI 中隐藏菜单项

Question

我有一个服务器生成的侧边栏。 创建后，我想隐藏它的第一个元素。 执行隐藏的观察者被执行，但是菜单项没有被隐藏。 我试图弄清楚，为什么它不起作用。 有什么想法吗？

PS。 CSS 选择器似乎是正确的，因为当 UI 未在服务器上创建时，一切正常。

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


ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(
      uiOutput("sidebar_ui")
    ),
    dashboardBody(
      shinyjs::useShinyjs()
    )
   )


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

  output$sidebar_ui <- renderUI({
    rv$trigger_sidebar_config <- 0
    cat("\nSidebar create")
    sidebarMenu(id = "sidebar",
                menuItem("Menu1", tabName = "tab_menu_1"),  # to be hidden
                menuItem("Menu2", tabName = "tab_menu_2") )
  })


  observeEvent(rv$trigger_sidebar_config, {
    cat("\nSidebar config")
    shinyjs::hide(selector = '[data-value="tab_menu_1"]')  # hide menuitem
  })
}

shinyApp(ui, server)

Answer 1

您的observeEvent执行得太早，因为响应值trigger_sidebar_config在与renderUI相同的周期内更新。 因此 shiny 尝试隐藏尚不存在的 UI 元素（您必须等待 UI 蜂鸣器呈现，而不是触发计算蜂鸣器，才能使其工作）。

您可以通过延迟执行shinyjs::hide来测试它 - 它在由actionButton触发时起作用（请参阅下面的示例），或者您查看reactlog ：

在这里您可以看到，通过trigger_sidebar_config触发的 observeEvent 在 3ms 后完成计算，但此时（30ms）侧边栏还没有准备好。

如果您希望在启动时隐藏选项卡，您可以在renderUI调用中使用hidden() （请参阅Menu3 ）：

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


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    uiOutput("sidebar_ui")
  ),
  dashboardBody(
    shinyjs::useShinyjs(),
    actionButton("hide", "hide tab")
  )
)


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

  output$sidebar_ui <- renderUI({
    rv$trigger_sidebar_config <- 0
    cat("\nSidebar create")
    sidebarMenu(id = "sidebar",
                menuItem("Menu1", tabName = "tab_menu_1"),  # to be hidden
                menuItem("Menu2", tabName = "tab_menu_2"),
                shinyjs::hidden(menuItem("Menu3", tabName = "tab_menu_3")))
  })


  observeEvent(input$hide, {
    cat("\nSidebar config")
    shinyjs::hide(selector = '[data-value="tab_menu_1"]')  # hide menuitem
  })
}

shinyApp(ui, server)

在这种情况下，另请参阅?renderMenu() 。