ConditionalPanel вокруг menuItem не отображается должным образом

Question

Как бы вы обернули menuitem в условной панели, чтобы он выглядел как остальные пункты меню?

Попробуйте нажать на B и посмотреть, как пункт меню C выглядит по сравнению с пунктами меню А или 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 в некотором роде?

Если кто-то имеет подробное объяснение, я был бы благодарен услышать это :)

Answer 2

на самом деле, в решении по @tospi g, подсветка активного пункта меню не работает. Я нашел это без проблем:

library(shiny) 
library(shinydashboard) 

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

server <- function(input, output) {} 

shinyApp(ui, server)