是否可以在 R Shiny 的“数据表”代码中格式化日期？-解网

问：

我想在以 DT：:d atatable 呈现表格时更改日期格式，具体取决于所选语言。假设“EN”的格式应为“yyyy-mm-dd”，FR的格式应为“dd-mm-yyyy”。

下面是代码片段的草图

library(DT)
library(data.table)

language <- "en"

df <- data.table(
  date = c("2023-11-09", "2023-11-10", "2023-11-11"),
  value = c(1, 2, 3))

# The format of "date" column should fit selected language
datatable(df) %>% formatDate(language)

欢迎任何关于如何以与“formatPercentage”或“formatCurrency”相同的方式做到这一点的想法，我们将不胜感激。

R 日期 DT

# v0.0.2
formatDate2 <- \(dt, language, warn = FALSE) {
  if(warn) 
    warning("Function is written for 'datatables'.\nRequires data column 'date' of class 'character', or 'Date'.")
  if(!any(attributes(dt)$class %in% c("datatables"))) 
    stop("Error: data object is no 'datatables'.")
  if(!("date" %in% names(dt$x$data))) 
    stop("Error: data column `date` is missing.")
  stopifnot(nchar(language) %in% c(2L, 3L))
  if(is.character(dt$x$data$date)) 
    dt$x$data$date <- as.Date(dt$x$data$date, "%Y-%m-%d") 
  ### --- borrowed from Mael --- ###
  lookup <- read.csv(
    "https://gist.githubusercontent.com/mlconnor/1887156/raw/014a026f00d0a0a1f5646a91780d26a90781a169/country_date_formats.csv")
  lookup$Date.Format <- 
    stringr::str_replace_all(string = lookup$Date.Format, 
                             pattern = c("yyyy" = "%Y", "MM" = "%m",
                                         "(?<!M|%)M(?!M)" = "%m", "dd" = "%d",
                                         "M" = "%M", "2555" = "%Y",
                                         "(?<!d|%)d(?!d)" = "%a"))
  ### ---   ################ --- ###
  if(nchar(language) == 2L) {
    if(!(language %in% lookup$ISO639.2.Country.Code)) 
      stop("Unknown country code.")
    f <- lookup[lookup$ISO639.2.Country.Code == language, "Date.Format"]
  } else {
    if(!(language %in% lookup$ISO.3166.Country.Code)) 
      stop("Unknown country code.")
    f <- lookup[lookup$ISO.3166.Country.Code == language, "Date.Format"]
  }
  dt$x$data$date <- format(x = dt$x$data$date, format = f)
  dt
}

您肯定必须进行更多的检查和一些修改。正如@Maël已经提到的，日期格式塑造w.r.t. 也应该改进。lookup$Date.Format

# your toy data 
library(DT)
library(data.table)
df <- data.table(
  date = c("2023-11-09", "2023-11-10", "2023-11-11"),
  value = c(1:3))
# testing 
df |> DT::datatable() |> formatDate2(language = "US") 
df |> DT::datatable() |> formatDate2(language = "DEU") 
df |> DT::datatable() |> formatDate2(language = "FR") 
df |> DT::datatable() |> formatDate2(language = "ABC")

（德国）的结果：language = "DEU"

是否可以在 R Shiny 的“数据表”代码中格式化日期？

Is it possible to format Date in R Shiny "datatables" code?

评论

评论