如何在闪亮的上下文中完成任务时重置滑块输入
How to reset the slider input when it completes its task in shiny context
如下图所示，我有一个滑块输入，它通过单击播放按钮进行动画处理。它工作得很好，除了当它到达最大点（这里是 year=2050）时没有回到起点（这里是 year=2010）。有解决这个问题的简单方法吗？
谢谢，
纳德
library(shiny)
ui <- fluidPage(
sliderInput("v1", "Slider1:", min = 1, max = 5,value = 1,animate = TRUE)
)
server=function(input, output, session) {
observeEvent(input$v1,{
if(input$v1 == 5){
updateSliderInput(session,'v1',value = 1)
}
})
}
shinyApp(ui, server)
如下图所示，我有一个滑块输入，它通过单击播放按钮进行动画处理。它工作得很好，除了当它到达最大点（这里是 year=2050）时没有回到起点（这里是 year=2010）。有解决这个问题的简单方法吗？
谢谢，
纳德
library(shiny)
ui <- fluidPage(
sliderInput("v1", "Slider1:", min = 1, max = 5,value = 1,animate = TRUE)
)
server=function(input, output, session) {
observeEvent(input$v1,{
if(input$v1 == 5){
updateSliderInput(session,'v1',value = 1)
}
})
}
shinyApp(ui, server)