如何在R Shiny的DT::datatable中按语言格式化日期？

你可以通过封装自定义格式化函数来实现类似formatPercentage/formatCurrency的链式调用逻辑，根据所选语言自动切换日期格式。以下是具体实现：

完整代码示例 #

library(DT)
library(data.table)

# 自定义按语言格式化日期的函数，兼容DT链式调用
format_date_by_lang <- function(table, language, col = "date") {
  # 根据语言匹配对应的日期格式
  date_format <- switch(tolower(language),
                        "en" = "yyyy-mm-dd",
                        "fr" = "dd-mm-yyyy",
                        # 未匹配到语言时用默认格式
                        "yyyy-mm-dd")
  
  # 调用DT原生formatDate函数应用格式
  table %>% formatDate(
    cols = col,
    method = "toLocaleDateString",
    params = list(format = date_format)
  )
}

# 测试英文场景
language <- "en"
df <- data.table(
  date = c("2023-11-09", "2023-11-10", "2023-11-11"),
  value = c(1, 2, 3))

datatable(df) %>% format_date_by_lang(language)

# 测试法文场景
language <- "fr"
datatable(df) %>% format_date_by_lang(language)

关键说明 #

• 自定义函数format_date_by_lang完全适配DT的链式语法，使用方式和官方formatXXX函数一致。
• 通过switch处理语言分支，支持不区分大小写的语言参数（如"EN"/"en"都能匹配英文格式）。
• 基于DT原生的formatDate函数实现，确保和DT表格的渲染逻辑一致，无论是字符型日期还是Date类型的列都能正确处理。

内容的提问来源于stack exchange，提问作者Andrii