r - 旧日期格式

Question

我正在使用以下代码：

pliki <- list.files("C:/Users/Desktop", pattern = "\\.xlsx$", full.names = TRUE)
pliki <- cbind(strcapture("\\b([0-9]{10})\\b", pliki, list(fn = "")), origfn = pliki)
pliki$date <- as.Date(pliki$fn, format = "%Y%m%d%H")
dates <- as.Date(c("2021-05-02", "2021-05-03"))
loadthese <- subset(pliki, dates[1] <= date & date <= dates[2])
list_of_frames <- lapply(loadthese$origfn, readxl::read_xlsx, sheet = "NEW")
punkty_pgd <- do.call(rbind, list_of_frames) 

xlsx 文件包含以下日期： 2021-05-03 01:00:00 rbind 之后，我想将所有内容保存到一个 xlsx 文件中。

write_xlsx(punkty_pgd, "C:/Users/Desktop/punkty_pgd.xlsx")

我得到了日期，但是 2021-05-03 01:00:00 UTC 如何解决这个问题以保持旧的日期格式？

标签： rdatetime