r - 菜单项周围的条件面板无法正确显示

Question

如何将 menuitem 包装在条件面板中，使其看起来像其余菜单项？

尝试单击 B 并查看 C 菜单项与菜单项 A 或 B 相比的外观 -

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(id = "sidebarmenu",
      menuItem("A", tabName = "a",  icon = icon("group", lib="font-awesome")),
      menuItem("B", tabName = "b", icon = icon("check-circle", lib = "font-awesome")),
      conditionalPanel("input.sidebarmenu === 'b'",
        sliderInput("b", "Under sidebarMenu", 1, 100, 50)
      ),
      conditionalPanel("input.sidebarmenu === 'b'",
        menuItem("C", tabName = "c", icon = icon("check-circle", lib = "font-awesome"))
      )
    )
  ),
  dashboardBody()
)

server <- function(input, output) {}

shinyApp(ui, server)

(大部分代码借自 - https://github.com/rstudio/shinydashboard/issues/28 )

我希望解决方案不需要修改 CSS 或其他一些背景设置。

Answer 1

有效的解决方案是将 menuItem 再次包装在 sidebarMenu( ) 中

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(id = "sidebarmenu",
                menuItem("A", tabName = "a",  icon = icon("group", lib="font-awesome")),
                menuItem("B", tabName = "b", icon = icon("check-circle", lib = "font-awesome")),
                conditionalPanel("input.sidebarmenu === 'b'",
                                 sliderInput("b", "Under sidebarMenu", 1, 100, 50)
                ),
                conditionalPanel("input.sidebarmenu === 'b'",
                                 sidebarMenu(menuItem("C", tabName = "c", icon = icon("check-circle", lib = "font-awesome")))
                )
    )
  ),
  dashboardBody()
)

server <- function(input, output) {}

shinyApp(ui, server)

但是，经过一些研究后，我不明白为什么这是必要的(我想知道它是否与 this issue 以某种方式相关？

如果有人有详细的解释，我将不胜感激:)