R基于另一个输入的条件输入标签

我试图让

条件面板的
标签
包含从使用其他输入创建的输出派生的名称。我一直在研究，还不知道如何做到这一点。下面是我尝试过的，但没有用

ui.R

shinyUI(
  fluidPage(    
    titlePanel("example"),
    sidebarLayout(     
      sidebarPanel(

        numericInput("criteria_count", 
                     label = "How many criteria are being considered? (max = 5)", 
                     2, min = 2, max = 5),

        textInput("critera_text",
                  label = "Type the different criteria titles, seperated by commas.",
                  value = "Example A, Example B"),
        #verbatimTextOutput("value"),

        conditionalPanel(condition = "input.criteria_count == 2",
                         selectInput("main_cri1",
                                     label = paste0("How much more important is ", output.criteria1, " than ", output.criteria2, "?"),
                                     c("9 (Extremely more important)",
                                       "7 (Much more important)",
                                       "5 (Moderately more important)",
                                       "3 (Slightly more important)",
                                       "1 (Equally as important)",
                                       "1/3 (Slightly less important)",
                                       "1/5 (Moderately less important)",
                                       "1/7 (Much less important)",
                                       "1/9 (Extremely less important)")))

      )  
    )
  )
)

library(shiny)

shinyServer(function(input, output){

  output$criteria1 <- renderText({
    strsplit(input$critera_text, ", ")[[1]][1]
  })

  output$criteria2 <- renderText({
    strsplit(input$critera_text, ", ")[[1]][2]
  })

})

server.R

shinyUI(
  fluidPage(    
    titlePanel("example"),
    sidebarLayout(     
      sidebarPanel(

        numericInput("criteria_count", 
                     label = "How many criteria are being considered? (max = 5)", 
                     2, min = 2, max = 5),

        textInput("critera_text",
                  label = "Type the different criteria titles, seperated by commas.",
                  value = "Example A, Example B"),
        #verbatimTextOutput("value"),

        conditionalPanel(condition = "input.criteria_count == 2",
                         selectInput("main_cri1",
                                     label = paste0("How much more important is ", output.criteria1, " than ", output.criteria2, "?"),
                                     c("9 (Extremely more important)",
                                       "7 (Much more important)",
                                       "5 (Moderately more important)",
                                       "3 (Slightly more important)",
                                       "1 (Equally as important)",
                                       "1/3 (Slightly less important)",
                                       "1/5 (Moderately less important)",
                                       "1/7 (Much less important)",
                                       "1/9 (Extremely less important)")))

      )  
    )
  )
)

library(shiny)

shinyServer(function(input, output){

  output$criteria1 <- renderText({
    strsplit(input$critera_text, ", ")[[1]][1]
  })

  output$criteria2 <- renderText({
    strsplit(input$critera_text, ", ")[[1]][2]
  })

})

库（闪亮）
shinyServer（功能（输入、输出）{
输出$criteria1试试这个（
app.R
）

ui