如何设置最近3天的dateRangeInput有光泽？

Question

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

ui.R

shinyUI(pageWithSidebar(

    # Application title
    headerPanel('dateRangeInput'),

    # Sidebar with a slider input for number of observations
    sidebarPanel(
        wellPanel(
            dateRangeInput('days', 'Select a date range:', 
                start = Sys.Date() - 3,
                end = Sys.Date(), 
                max = Sys.Date()))
    ),
    mainPanel()
))

server.R

shinyServer(function(input, output, session) 
{

})

但是，当日期更改时，日期会在Shiny App开始之日冻结。见截图。

如何根据当前日期动态更改开始，结束和最大值？感谢您的任何建议。

Answer 1

我在server.R中添加了一个观察。不确定这是最好的解决方案。

server.R

shinyServer(function(input, output, session) 
{

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