R shinyラジオボタンがupdateRadioButtonsで更新されない

Question

Shinyのクイズタイプのプログラムで作業しています。これは、テーブルからの回答で更新されるラジオボタンが必要です。私は以下のコードを持っていますが、ラジオボタンは更新されず、質問は変化しても答えは2、3、4、5、6のままです。なぜこれが起こっているのか、そしてこれを修正するのかについてのアイデアはありますか？

library(shiny) 


ui <- fluidPage(

    selectInput("numberchoice",label = "Choose an image", choices = c(1:6), selected = 1) 
    , 
    imageOutput("image") 
    , 
    radioButtons("answerchoice", "Answers", choices = c(2:6)) 

) 

server <- function(input,output,session) { 
    answers <- read.csv("~/Answers.csv") 
    questions <- read.csv("~/Answers.csv") 
    output$image <- renderImage(list(src = paste("~",".png", sep = "") 
    ,contentType = "image/png", alt = "Face"),deleteFile = FALSE) 
    eventReactive(input$numberchoice,{updateRadioButtons(session,"answerchoice",choices = questions[input$numberchoice,2:6])}) 
} 

shinyApp(ui = ui, server = server) 

Answer 1

observeEventでeventReactiveを交換してみてください。次のコードは私のために働く。

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は問題ではなかったので、トリガしていなかったように思えます。