Question

我正在尝试在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)

我将不胜感激。

谢谢

Answer 1

基本上，您希望将字符串变量作为“参数”传递给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必须是唯一的以及有效的HTML ID（无空格！）。因此，paste0在这种情况下非常有用。

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

无法调用input $“ OptionType1”

1 个答案: