R Shiny: Как получить выбор динамического блестящего ввода

Question

У меня есть разные поля SelectInput, которые генерируются динамически. Я пытаюсь получить выбор каждого SelectInput, но не получилось, как показано ниже:

input[[ paste0("FilterField","_",rowNumber)]]$choices

становится как: NA NA NA NA.

Обновлен:

У меня здесь есть 4 выбранных входа, я хочу выбрать первый выпадающий список. Пожалуйста, помогите мне получить это.

library(shiny)

choices = c("","Employee","State","City","Status")

ui = fluidPage(
  box(
    uiOutput("InputUI"),

    actionButton(
      inputId = "ENTER",
      style = "simple",
      size = "sm",
      label="Print Number of Choices in Console"
    )
  )

)
server = function(input, output) {
  filterRow=reactiveValues(
    CurrentRow=4
  )

  output$InputUI=renderUI({
    box(
      div(
        selectInput(
          inputId=paste("FilterField",1,sep = "_"),
          label="",
          choices=choices,
          multiple=F,
          selectize = F
        )
      ),

      div(
        selectInput(
          inputId=paste("FilterField",2,sep = "_"),
          label="",
          choices=choices,
          multiple=F,
          selectize = F
        )
      ),

      div(
        selectInput(
          inputId=paste("FilterField",3,sep = "_"),
          label="",
          choices=choices,
          multiple=F,
          selectize = F
        )
      ),

      div(
        selectInput(
          inputId=paste("FilterField",4,sep = "_"),
          label="",
          choices=choices,
          multiple=F,
          selectize = F
        )
      )
    )

  })

  observeEvent(input$ENTER,{
     print(input[[ paste0("FilterField","_",1)]]["choices"])
  })

}
shinyApp(ui,server,options=list(launch.browser=F))

У меня обновленный последний код, пожалуйста, помогите по этому вопросу.

Answer 1

Почему вы решили, что $choices существует в сиянии? Есть только input$inputId значения. Если вам нужно изменить выбор, вы можете использовать

updateSelectInput ()

и передайте ей новые условия, вычисленные условно.