0

我正在尝试在我的 Shiny 应用程序中创建动态 UI。每次通过按钮添加输入时，我都会增加一个变量（dealNumber）。但是，我需要从这些新输入中获取值。我将 dealNumber 的值添加到每个输入的 ID。但是，我很难提取这些值。

#I use the following code to create a new input
#dealNumber = 1

column(2,selectInput(paste("optionType",dealNumber,sep=""), label = h5(""),choices = option_type, selected = 1)

#I then need to assign the value from the input above to the variable OptionType. If i use input$"OptionType1" or input$OptionType1 it works. But I need to get the number 1 via a variable so that the code is dynamic.
#I have tried the code below without any sucess

assign("OptionType",input$paste("OptionType",dealNumber,sep=""),.GlobalEnv)

我将不胜感激任何帮助。

谢谢

4

1 回答 1

0

基本上，您希望将字符串变量作为“参数”传递给input对象以检索值。这可以通过input[["myString"]].

要说明如何将其用于动态分配的 id，请参见以下示例。

create_slider <- function(i) {
  sliderId <- paste0("slider", i)
  sliderInput(sliderId, sliderId, 0, 1, 0)
}

shinyApp(
  fluidPage(
    create_slider(1),
    create_slider(2),
    create_slider(3),
    numericInput("get_id", "get value of slider", 1, 1, 3, 1),
    textOutput("text")
  ),
  function(input, output, session) {
    output$text <- renderText({
      input[[ paste0("slider", input$get_id) ]]
    })
  }
)

一般来说，我建议不要assign用于此目的。相反，使用功能逻辑来捕获来自dealNumber.

getDynamicInput <- function(dealNumber, input) {
  input[[ paste0("optionType", dealNumber) ]]
}

始终牢记，您正在构建的 id 必须是唯一且有效的HTMLid（没有空格！）。因此，paste0在这种情况下非常有用。

也许您应该考虑使用闪亮模块以编程方式分配input插槽，以避免在服务器端进行繁琐的字符串解析。

于 2018-08-11T22:26:52.360 回答