ptt-r_20220525

# 用 readxl::read_xlsx 可以指定欄位資料格式

library(purrr)
library(readxl)

path <- "your/file/path/"

files <- list.files(filepath, pattern = "*.xlsx$", full.names = TRUE)

all_files <- files |>
  map(~ read_xlsx(file.path(filepath, .),
                  col_types = cols(
                    `7.計劃日` = col_character())
                  )) |>
  reduce(rbind)