日本の休日一覧を内閣府からとってくる

japanese_holidays.r

library('tidyverse')

locale(
  date_names = "en",
  date_format = "%AD",
  time_format = "%AT",
  decimal_mark = ".",
  grouping_mark = ",",
  tz = "Asia/Tokyo",
  encoding = "CP932",
  asciify = FALSE
) -> file_locale

readr::read_csv(
  "https://www8.cao.go.jp/chosei/shukujitsu/syukujitsu.csv",
  locale = file_locale,
  col_types = c("?", "c"),
  show_col_types = TRUE
  ) -> data


ymd(data$`国民の祝日・休日月日`) -> data$`国民の祝日・休日月日`