R 如何在闪亮的应用程序中使用input$选项卡引用输出名称

下面的工作

library(shiny)   

ui <- (basicPage( 

 tabsetPanel(id = "tabs",
          tabPanel("Tab A", value = "A",
                   "This is Tab A content",
                   textOutput("tabA")),
          tabPanel("Tab B", value = "B",
                   "Here's some content for tab B.",
                   textOutput("tabB")))
))

server <- function(input, output, session) {

  output$tabA <- renderText({paste0("You are viewing tab ", input$tabs)})
  output$tabB <- renderText({paste0("You are viewing tab ", input$tabs)})
}

shinyApp(ui = ui, server = server)

库（闪亮）
像这样的东西

library(shiny)   

ui <- (basicPage( 
  tabsetPanel(id = "tabs",
              tabPanel("Tab A", value = "A","This is Tab A content",textOutput("tabA")),
              tabPanel("Tab B", value = "B","Here's some content for tab B.",textOutput("tabB")))
))

server <- function(input, output, session) {

  observe({
    output[[paste0("tab", input$tabs)]] <- renderText({paste0("You are viewing tab ", input$tabs)})
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
为输出使用通用名称并将其置于tabsetPanel之外的ui也可以工作。i、 e.只有一个文本输出（“tabX”）
 output[[paste0("tab", input$tabs)]] <- renderText({paste0("You are viewing tab ", input$tabs)})

library(shiny)   

ui <- (basicPage( 
  tabsetPanel(id = "tabs",
              tabPanel("Tab A", value = "A","This is Tab A content",textOutput("tabA")),
              tabPanel("Tab B", value = "B","Here's some content for tab B.",textOutput("tabB")))
))

server <- function(input, output, session) {

  observe({
    output[[paste0("tab", input$tabs)]] <- renderText({paste0("You are viewing tab ", input$tabs)})
  })
}

shinyApp(ui = ui, server = server)