根据活动的 tabPanel 执行 server.R 中的代码？

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))
                 ))                 
)

显然，在 "Panel 1" 和 "Panel 2" 中我会显示不同的输出。如何根据激活的面板执行 server.R 中的代码？

假设我有两个不同的情节。如果面板 1 处于活动状态，R 应该只执行第一个 Panel/Plot 的所有代码。如果面板 2 处于活动状态，R 应该只执行第二个 Panel/Plot.

的所有代码

希望我说清楚了:/

Answer 1

我有一个类似的问题，它对我来说写 if(navbarMenu==1) （例如）。为此，您应该为每个 tabPanel tabPanel("PANEL 1",value=1, ...)

编写

根据活动的 tabPanel 执行 server.R 中的代码？

Execute code in server.R depending on active tabPanel?

r

shiny