R 我可以从列表中创建一组反应式输入输出对吗？

在Shiny中，是否可以使用函数从向量/字符串列表创建多个被动输入输出对

i、 e差不多

id_list <- c("ID_1", "ID_2", "ID_3")

server <- function(input, output) {

lapply(id_list, function(x) quote(output$as.character(x) <- renderText({ input$x })))

}

---

id\u list
server，这样它就不能在像lappy这样的函数中完成？@eartoolbox您可以尝试
lappy（id\u list，函数（id）{output[[id]]
output$ID_1 <- renderText({ input$ID_1 })
output$ID_2 <- renderText({ input$ID_2 })
output$ID_2 <- renderText({ input$ID_2 })

server <- function(input, output) {
 
  for(id in id_list){
    local({
      localId <- id
      output[[localId]] <- renderText({
        input[[localId]]
      })
    })
  } 

}