conditionalPanel Display, но состояние не выполнено - R Shiny

Question

Я только что начал выполнять пользовательский интерфейс с использованием Shiny с R, однако у меня возникли проблемы с компоновкой моей страницы.

Проблема, с которой я столкнулся, - это моя вторая условная панель, которая отображается, хотя она не выбрана. Я поместил выбранный = 'Item1' в мои radioButtons, но также показывает checkboxGroupInput из Item2.

В чем проблема и как мне ее исправить? Есть ли в моем коде ошибки или ошибки?

library("shiny") 

shinyUI(navbarPage("title", 
tabPanel("Subtitle1", 
sidebarLayout(
    sidebarPanel(
     checkboxGroupInput("variable1","Items:", 
         c("Item1","Item2"))), 
    mainPanel(
    plotOutput("plot") 
    ) 
) 
), 

tabPanel("Subtitle2", 
     sidebarLayout(
      sidebarPanel(
       radioButtons(
        inputId="Item", 
        label="Item Selection:", 
        choices=list(
         "Item1","Item2"), 
        selected='Item1' 
          ), 
# Only show this when Item1 is selected. Become invisible when other Items is selected. 
       conditionalPanel(
        condition="input.Item == 'Item1'", 
        checkboxGroupInput(
         "variable2", 
         "Countries:", 
         choices=names(QuantityI), 
         selected= "World.") 
           ), 
# Only show this when Item2 is selected. Become invisible when other Items is selected. 
       conditionalPanel(
        condition="input.Item == 'Item2'", 
        checkboxGroupInput(
         "variable2", 
         "Countries:", 
         choices=names(QuantityI), 
         selected= "World.") 
           ) 
         ), 
      mainPanel(
        plotOutput("plot") 
         ) 
        ) 
     ))) 

Answer 1

Я нашел решение этой проблемы. Большое спасибо Wannes Rosiers, где я нашел и устранил эту ошибку.

Для обоих mainPanel в tabPanel subtitle1 и subtitle2, Оба его имели один и тот же plotOutput, что является «сюжет»,

mainPanel(
plotOutput("plot") 
) 

Оба они должны иметь другой вывод, хотя я не уверен, причина этого.