将navbarTab名称返回给server.r.

Question

我希望将所选navbarPage选项卡（顶层）中的名称（或其他一些唯一标识符）返回到server.r文件以进行条件显示。

下面是一个最小的示例，其目标是使所选的navbarPage选项卡名称（“NavTab1”或“NavTab2”）可用于verbatimText。

ui.r：

navbarPage("Navbar",
       tabPanel("NavTab1",
                br(),
                verbatimTextOutput("text"),
                tabsetPanel(type="tabs",
                            tabPanel("Plot 1",
                                     plotOutput("plot1")
                            )
                            )
                ),
       tabPanel("NavTab2",
                br(),
                tabsetPanel(type="tabs",
                            tabPanel("Plot 2",
                                     plotOutput("plot2")
                            )
                            )
               )
       )

server.r：

function(input, output, session) {
  output$plot1 <- renderPlot({
    plot(x=runif(10), col="blue")
  })

  output$plot2 <- renderPlot({
    plot(x=runif(1000), col="red")
  }) 

  output$text <- renderText({
  RETURN NAVTAB NAME
  })
}

navbarPage文档使其看起来像这样，但我尝试过的id或value的组合都没有效果。任何帮助表示赞赏。

Answer 1

您可以通过设置id的{​​{1}}参数并在服务器中引用navbarPage()来访问所选当前导航栏标签的名称。一个非常小的例子如下所示。

input$id

结果