updateSliderInput не обновляется после реактивного изменения ввода

Question

У меня есть ползунок ввода, и я хочу, чтобы параметры max и value обновлялись в зависимости от выбора переключателя.

Мой вывод testTxt корректно обновляется с 1/2/3 в зависимости от выбранного переключателя, а ползунок - нет.Я проверил операторы переключения, и они дали правильный результат.Есть ли что-то очевидное, что я могу здесь упустить?

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)
  })
})