Shiny 中的动态输入小部件

Question

我正在构建一个包含动态输入小部件的 Shiny 应用程序。我可以通过使用uiOutput() 和renderUI() 来做到这一点。我的服务器端代码如下：

output$dynamic_widget <- renderUI({

    num <- as.integer(input$slider_val)
    lapply(1:num,function(i) {

      textInput(inputId = paste("text",i+1),label="Dynamic text inputs",value="")
       })

  })

slider_val 指的是我的 UI 中的滑块输入。现在，当我更改滑块的值时，我可以动态添加动态文本输入。

这部分代码运行良好。但是，我的问题是，如何使用变量名访问这些动态小部件的值。我想做这样的事情：

for(i in 1:length(input$slider_val)) {
   output[[i]] <- input$.... #access the value of ith text input widget
}

即我想访问每个动态小部件的值并将值存储在列表中。

我该怎么做？

谢谢！

Answer 1

您可以像为输出分配值一样访问输入：

for(i in 1:as.numeric(input$slider_val)) {
   output[[i]] <- input[[paste("text",i+1)]] #access the value of ith text input widget
}