访问R中的文件日期

# 获取单个文件的日期信息
file_info <- file.info("your_file.csv")
print(file_info[c("mtime", "atime", "ctime")])

# 输出示例：
#                  mtime                atime                ctime
# your_file.csv "2024-05-20 14:30:00" "2024-05-21 09:15:00" "2024-05-19 10:00:00"

files <- list.files(pattern = "\\.csv$")  # 获取所有CSV文件
file_details <- file.info(files)
print(file_details[, c("mtime", "atime", "ctime")])

file_info <- file.info("data.txt")
formatted_time <- format(file_info$mtime, tz = "UTC", usetz = TRUE)
print(paste("UTC时间:", formatted_time))

if (file.exists("file.txt")) {
  info <- file.info("file.txt")
} else {
  warning("文件不存在")
}

file.info("symlink", extra_cols = TRUE)

library(fs)
dir_info(recurse = TRUE) |> 
  filter(type == "file") |> 
  select(path, modification_time)