Как добиться условного вывода на основе выбора вкладок в блестящем приложении

Question

Я бы хотел иметь 2 вкладки на боковой панели «Выбор оту» и «anova».Основываясь на вкладке, которая выбрана на боковой панели, я хотел бы выводить различные графики или таблицы на главной панели.

В настоящий момент я получаю сообщение об ошибке:

ERROR: object 'input.tabs' not found

Вотмой сценарий.

ui <- fluidPage(
  # Make a title to display in the app
  titlePanel(" Exploring the Effect of Metarhizium on the Soil and Root Microbiome "),
  # Make the Sidebar layout
  sidebarLayout(
    # Put in the sidebar all the input functions
    sidebarPanel(
      tabsetPanel(id="tabs",
        tabPanel("otu","OTU selection", selectInput('dataset', 'dataset', names(abundance_tables)),
                 uiOutput("otu"), br(),
                 # Add comment
                 p("For details on OTU identification please refer to the original publications")),
        tabPanel("anova","anova", sliderInput('pval','p-value for significance',
                                      value=5,min=0,max=0.5,step=0.00001),
                 selectInput('fact_ofInt','factor of interest',FactorsOfInt))
        )
    ),
    # Put in the main panel of the layout the output functions 
    mainPanel(
      conditionalPanel(condition=input.tabs == 'otu',
        plotOutput('plot')
     #   dataTableOutput("table")
      ),
     conditionalPanel(condition=input.tabs == 'anova',
                      plotOutput('plot2')
                      #   dataTableOutput("table")
     )
    )
  )
)

Я просмотрел похожие посты, но все еще нуждаюсь в руководстве.

Спасибо

Answer 1

ваше условное состояние панели объявлено в неверном формате.Правильный формат:

 # Put in the main panel of the layout the output functions 
    mainPanel(
      conditionalPanel(condition=input.tabs == 'otu',
        plotOutput('plot')
     #   dataTableOutput("table")
      ),
     conditionalPanel(condition="input.tabs == 'anova'",
                      plotOutput('plot2')
                      #   dataTableOutput("table")
     )
    )

Таким образом, условное выражение всегда присваивается в "", а в "" выполняется проверка на равенство.