无功输入更改后updateSliderInput不更新

Question

我有一个输入滑块，希望根据单选按钮选择来更新最大值和值参数。

我的testTxt输出已根据选定的单选按钮正确更新为1/2/3，但滑块没有更新。我验证了switch语句，它们产生了正确的结果。有什么明显的我可能会想念的地方吗？

wellPanel(
  radioButtons(inputId="radBtns", label="Older than:", choiceNames=c("years","months","days"), choiceValues=c(1:3), selected=2, inline=TRUE),
  sliderInput("timeSld", label=NULL, min=0, max=60, step=1, value=24, width="200px"),
  textOutput("testTxt")
)

observeEvent(input$radBtns, {
  maxVal <- switch(input$radBtns,opt1=5,opt2=60,opt3=365)
  val <- switch(input$radBtns,opt1={jobData[1,"years"]},opt2={jobData[1,"months"]},opt3={jobData[1,"days"]})
  updateSliderInput(session, "timeSld", value=val, min=0, max=maxVal)
  output$testTxt <- renderText({
    paste0("Selected: ",input$radBtns)
  })
})