Shiny中的动态输入小部件

Question

我正在构建一个包含动态输入小部件的Shiny应用程序。我可以使用uiOutput()＆amp; 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
}