闪亮-今日按钮在airdatepickerinput中不起作用

Question

我在使Shinywidget airdatepicker输入中的“今天”按钮工作时遇到麻烦。

下面您将找到一个简单的示例。

理想情况下，无论当前值如何，都单击“ today”按钮时，airdatepicker的值将设置为Sys.time（）。希望有人能帮忙。

ui <- fluidPage(
  airDatepickerInput(
    inputId = "DateRange",
    value = Sys.time(),
    todayButton = T
  ),
  verbatimTextOutput("res_date")
)

server <- function(input, output, session) {
  output$res_date <- renderPrint(input$DateRange)
}

shinyApp(ui, server)