需要在Shiny中为多个输出使用相同的输入

Shiny允许输入使用任意次数,但不能使用相同的输入 outputId 用于输出元件。您可以重命名 textOutput 输出Id 首先添加选项卡的名称,使其唯一。

下面是一个示例:

library(shiny)
ui<-shinyUI(pageWithSidebar(
        headerPanel("Test"),
        sidebarPanel(textInput(inputId = "sh1", label = "Stakeholder #1's name")),
                mainPanel(
        tabsetPanel(
                tabPanel("#1 vs #2",
                         fluidRow(
                                 column(3),
                                 column(2, textOutput(outputId = "tab1_sh1o")),
                                 column(2, "vs"),
                                 column(2, textOutput(outputId = "tab1_sh2o"))
                         )),

                         tabPanel("#1 vs #3",
                                  fluidRow(
                                          column(3),
                                          column(2, textOutput(outputId = "tab2_sh1o")),
                                          column(2, "vs"),
                                          column(2, textOutput(outputId = "tab2_sh3o"))
                                  )
        )
))))

server <- function(input,output,session){
        output$tab1_sh1o <- renderText(input$sh1)
        output$tab1_sh2o <- renderText(input$sh1)
        output$tab2_sh1o <- renderText(input$sh1)
        output$tab2_sh3o <- renderText(input$sh1)
}
shinyApp(ui,server)