data-raw/Kcalendar/Kcalendar.R

library(tidyverse)
library(lubridate)

Kcalendar <- read_csv("data-raw/Kcalendar/korea-calendar.csv")

glimpse(Kcalendar)

Kcalendar <- Kcalendar %>%
  mutate(
    손있는날 = gsub(",", "", 손있는날)
  )

usethis::use_data(Kcalendar, overwrite = TRUE)
adatalab/hanwoo documentation built on March 1, 2025, 3:35 p.m.