R闪亮的单选按钮未使用updateRadioButtons进行更新

Question

我正在制作一个Shiny中的测验类型程序，它需要有一个单选按钮，可以用表格中的答案进行更新。我有下面的代码，但单选按钮不会更新，尽管问题有所改变，但答案仍然是2,3,4,5和6。关于为什么会发生这种情况的任何想法，以及解决这个问题的方法？

to the

Answer 1

尝试将eventReactive替换为observeEvent。以下代码适用于我。

library(shiny)

ui <- fluidPage(
  selectInput("numberchoice", label = "Choose an image", choices = 1:6, selected = 1),
  radioButtons("answerchoice", "Answers", choices = 1:6 )

)

server <- function(input, output, session) {
  observeEvent(input$numberchoice,{
    updateRadioButtons(session, "answerchoice",
      choices = letters[1:input$numberchoice])})
}

shinyApp(ui = ui, server = server)

似乎eventReactive没有触发，因此updateRadioButtons不是问题。