如何将dateInput最大值设置为客户端当前日期？

Question

一个简单的例子：

library(shiny)

shinyApp(
  ui=fluidPage(
    dateInput("date","Choose a date",max=Sys.Date()),
    textOutput("text")
  ),server = function(input, output) {
    output$text=renderText(as.character(input$date))
  }
)

有日期输入。目前，最新日期设置为系统日期，但我想将其更改为客户端的日期。我该怎么做？

（我知道posts谈论如何通过javascript检索客户端数据，但我不知道如何在dateInput对象中使用这些结果。）

Answer 1

您可以使用与您发布的link中的第一个答案相同的想法，并使用updateDateInput中的server.R来获取客户的日期并更改{{1}的最大值}}：

dateInput