Bảng điều kiện có điều kiện trong Bảng điều khiển sáng bóng

Question

Tôi có câu hỏi về bảng điều kiện có điều kiện trong bảng điều khiển sáng bóng. Có khả năng tạo bảng điều kiện có điều kiện trên menuItem trong sidebarMenu không? Mục tiêu của tôi là nhận thêm selectInput sau khi nhấp vào tab menu title2 (nhưng nó sẽ ẩn trong tab title1).

Tôi đang làm một cái gì đó như sau

ui <- dashboardPage(
    dashboardHeader(title = "Basic Dashboard"), 
    dashboardSidebar(
     sidebarMenu(
      menuItem("tab title1", tabName = "name1", icon = icon("th")), 
      menuItem("tab title2", tabName = "name2", icon = icon("th")) 
     ), 
     conditionalPanel(
      condition = "input.tabName == 'name2'", 
      selectInput("period", "Period:", 
         choices = list("Years" = 1, "Months" = 2)) 
     ) 
     ), 
    dashboardBody()) 

Trong tiêu chuẩn shiny nó có thể được thực hiện bằng cách thêm , value=1 đến tab nhưng ở đây nó không hoạt động. Có ai biết giải pháp nào không? Cảm ơn trước :)

Answer 1

Thêm đối số bổ sung id to sidebarMenu giải quyết vấn đề.

ui <- dashboardPage(
dashboardHeader(title = "Basic Dashboard"), 
dashboardSidebar(
    sidebarMenu(id="menu1", 
     menuItem("tab title1", tabName = "name1", icon = icon("th")), 
     menuItem("tab title2", tabName = "name2", icon = icon("th")) 
    ), 
    conditionalPanel(
     condition = "input.menu1 == 'name2'", 
     selectInput("period", "Period:", 
        choices = list("Years" = 1, "Months" = 2)) 
    ) 
    ), 
dashboardBody())