如何在shiny的dateRangeInput中设置最近3天？

我想在dateRangeInput中显示最近3天的默认值。现在使用Sys.Date（）设置开始、结束和最大值。这是我的ui.R和server.R

用户界面

服务器.R

shinyServer(function(input, output, session) 
{

})

shinyServer(function(input, output, session) 
{

    observe({
        updateDateRangeInput(session, "days",
            start = Sys.Date() - 3,
            end = Sys.Date(), 
            max = Sys.Date())
    })
})

但是，当日期更改时，该日期将冻结在闪亮应用程序启动的日期中。见截图

如何根据当前日期动态更改开始、结束和最大值？谢谢你的建议

---

我在服务器中添加了一个observe。我不确定这是最好的解决方案

服务器.R

shinyServer(function(input, output, session) 
{

})

shinyServer(function(input, output, session) 
{

    observe({
        updateDateRangeInput(session, "days",
            start = Sys.Date() - 3,
            end = Sys.Date(), 
            max = Sys.Date())
    })
})