r - 访问在 Shiny 的 renderUI 中创建的输入

Question

我正在尝试在 Shiny 服务器上的应用程序中利用一些动态 GUI 事件。我的应用程序需要创建可变数量的 slider ，具体取决于输入到我的应用程序中的数据。具体来说，我正在尝试创 build 置一个值的 slider ，一个值对应输入数据表中的每个唯一类别。我能够使用渲染 UI 成功读取我的输入表并创建 slider ，但我一直困惑于如何最好地操作由 slider 设置的可变数量的创建输入值 - 我如何访问它们(作为最好列出 list ？)感谢任何建议或指示。我的代码片段如下。

output$sliders <- renderUI({

# if we don't need the sliders, return
if (input$unequalpts == "no")
  return(NULL)
# go to panel where sliders are to appear
updateTabsetPanel(session, "inTabSet", selected = "Unequal")
# get the number of unique entries the field f interest to create sliders for
theDATA <- myData()
theFields <- unique(as.character(theDATA$shnystr))

return  (
    lapply(1:numstrata, function(i) {
      sliderInput(inputId = paste0("strata", i), label = paste("strata ", theFields[i]),
                min = 0, max = 100, value = c(0, 100), step = 1)
  })
  ) 
})

Answer 1

通常使用 input$foo 来检索 ID 为 foo 的输入小部件的值。事实上，您还可以使用 input[['foo']]，因此在您的情况下，您只需将 id 传递给 input 并检索它们的值，如下所示:

lapply(1:numstrata, function(i) {
  input[[paste0("strata", i)]]
})