Выполнять код на сервере.R в зависимости от активной tabPanel?

Question

Предположим, у вас есть пользовательский интерфейс с навигационной панели, как это:

shinyUI(navbarPage("Shiny APP", 
     tabPanel("Welcome", 
       p("Welcome!")), 
     navbarMenu("Kapitel 1", 
       tabPanel("PANEL 1",withMathJax(), 
          h3("Topic 1"), 
          fluidRow(column(4),column(8)), 
          fluidRow(column(12)) 
       ), 
       tabPanel("PANEL 2",withMathJax(), 
          h3("Topic 2"), 
          fluidRow(column(4) ,column(8)) 
       ))     
) 

Очевидно, что в «Панели 1» и «Группа 2» Я проявленные различной мощности. Как я могу выполнить выполнение кода на сервере.R в зависимости от того, какая панель активна?

Допустим, у меня есть два разных участка. Если панель 1 активна, R должен использовать ТОЛЬКО весь код для первой панели/графика. Если панель 2 активна, R должен использовать ТОЛЬКО весь код для второй панели/графика.

Я надеюсь, что я ясно дал понять:/

Answer 1

У меня была аналогичная проблема, она работала для меня, чтобы написать if(navbarMenu==1) (например). Для этого вам следует написать для каждого tabPanel tabPanel("PANEL 1",value=1, ...)