如何在R/Shiny中获取用户端当前日期时间作为输入框默认值

我正在搭建一个Shiny应用并部署在服务器上，应用里有日期和时间输入框，目前默认值用的是Sys.Date()和Sys.time()，但用户访问时看到的默认值是服务器端的日期时间，不是用户本地的时间。请问怎么获取用户端当前日期时间并设为输入框的默认值呢？

当前我的输入控件代码是这样的：

dateInput("dateto", "Date To:", format = "mm/dd/yyyy", value = Sys.time()), 
textInput("dateto_hour", "HH:MM", value = gsub("(.*):.*","\\1",format(Sys.time(), "%X")))

解决方案：用JavaScript获取客户端时间同步到输入框 #

这是Shiny部署后很常见的问题——毕竟R的Sys.time()这类函数都是在服务器端执行的，自然拿的是服务器的时区时间。要获取用户本地的时间，必须借助JavaScript（因为JS是在用户浏览器端运行的），然后把拿到的时间传递给Shiny的输入控件。

下面是一步到位的实现代码和逻辑说明：

1. 完整的UI代码示例 #

你只需要在UI中插入一段自定义JS脚本，让它在页面加载完成后自动获取用户本地时间并更新输入框：

ui <- fluidPage(
  # 插入自定义JavaScript代码
  tags$script(HTML("
    // 等页面所有元素加载完成后再执行
    document.addEventListener('DOMContentLoaded', function() {
      // 获取用户本地当前时间（完全基于浏览器时区）
      const localNow = new Date();
      
      // 把日期格式化为mm/dd/yyyy，和你的dateInput格式匹配
      const month = String(localNow.getMonth() + 1).padStart(2, '0'); // 月份从0开始，要+1
      const day = String(localNow.getDate()).padStart(2, '0');
      const year = localNow.getFullYear();
      const formattedDate = `${month}/${day}/${year}`;
      
      // 把时间格式化为HH:MM
      const hours = String(localNow.getHours()).padStart(2, '0');
      const minutes = String(localNow.getMinutes()).padStart(2, '0');
      const formattedTime = `${hours}:${minutes}`;
      
      // 用Shiny的内置JS函数更新输入框的值
      Shiny.setInputValue('dateto', formattedDate);
      Shiny.setInputValue('dateto_hour', formattedTime);
    });
  ")),
  
  # 你的输入控件（可以保留服务器端默认值作为JS禁用时的兜底）
  dateInput("dateto", "Date To:", format = "mm/dd/yyyy", value = Sys.Date()),
  textInput("dateto_hour", "HH:MM", value = gsub("(.*):.*","\\1",format(Sys.time(), "%X")))
)

server <- function(input, output, session) {
  # 你的服务器端逻辑
}

shinyApp(ui = ui, server = server)

2. 关键逻辑说明 #

• DOMContentLoaded事件：确保JS代码在页面所有元素都加载完成后再执行，避免出现找不到输入控件的错误。
• new Date()：直接获取用户浏览器所在时区的本地时间，完全和用户的系统时间一致。
• padStart(2, '0')：保证月份、日期、小时、分钟都是两位数（比如把"5"变成"05"），和你设置的mm/dd/yyyy、HH:MM格式完全匹配。
• Shiny.setInputValue()：这是Shiny官方提供的JS函数，专门用来把客户端的数据传递给Shiny的输入对象，服务器端的input$dateto和input$dateto_hour就能拿到用户的本地时间了。

3. 兜底方案（可选） #

如果担心用户浏览器禁用了JavaScript的极端情况，你可以保留原来的服务器端默认值——JS代码会在页面加载后自动覆盖这个默认值，正常情况下用户看到的还是本地时间；如果JS无法执行，就会显示服务器时间作为备用。

内容的提问来源于stack exchange，提问作者Rohit Kumar Singh