ymd

install.packages("ymd")

install.packages("ymd", repos = "{RSPM-Repo-URL}")

remotes::install_github("shrektan/ymd")

print_bmk <- function(x) {
  x[[1]] <- format(x[[1]])
  x[[5]] <- format(x[[5]])
  rnd <- \(v) if (is.numeric(v)) round(v, 1) else v
  x[, 1:8] |>
    lapply(rnd) |>
    as.data.frame() |>
    knitr::kable() |>
    print()
}
run_bmk <- function(..., time_unit = "us") {
  bench::mark(..., time_unit = time_unit) |> print_bmk()
}

x <- c("210101", "21/02/03", "89-1-03", "1989.03.05", "01 02 03")
x <- rep(x, 100)
run_bmk(
  ymd::ymd(x),
  lubridate::ymd(x)
)

x <- c(210101, 210224, 211231, 19890103)
x <- rep(x, 100)
run_bmk(
  ymd::ymd(x),
  lubridate::ymd(x)
)

x <- c("2021-01-01", "2022-12-31", "1995-03-22")
x <- rep(x, 100)
run_bmk(
  ymd::ymd(x),
  clock::as_date(clock::year_month_day_parse(x)),
  lubridate::ymd(x),
  as.Date(x)
)

x <- ymd::ymd(210515) + 1:100
run_bmk(
  ymd::eop$tm(x),
  clock::as_date(clock::calendar_end(clock::as_year_month_day(x), "month")),
  lubridate::ceiling_date(x, "month") - 1
)

`%m+%` <- lubridate::`%m+%`
x <- ymd::ymd(c(200115, 200131, 200229, 200331, 200401))
x <- rep(x, 100)
run_bmk(
  ymd::edate(x, 2),
  clock::add_months(x, 2, invalid = "previous"),
  x %m+% months(2)
)

run_bmk(
  ymd::edate(x, -12),
  clock::add_months(x, -12, invalid = "previous"),
  x %m+% months(-12)
)

# tweak from https://github.com/Rdatatable/data.table/pull/5300
set.seed(373L)
x <- as.Date(data.table::as.IDate(sample(seq(-25000, 45000), 1e6, TRUE)))

run_bmk(
  data.table::year(x),
  clock::get_year(x),
  lubridate::year(x),
  funchir::quick_year(x),
  ymd::year(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.

run_bmk(
  data.table::month(x),
  clock::get_month(x),
  lubridate::month(x),
  ymd::month(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.

run_bmk(
  data.table::quarter(x),
  clock::get_quarter(clock::as_year_quarter_day(x)),
  lubridate::quarter(x),
  ymd::quarter(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.

run_bmk(
  data.table::yday(x),
  clock::get_day(clock::as_year_day(x)),
  lubridate::yday(x),
  funchir::quick_yday(x),
  ymd::yday(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.

run_bmk(
  data.table::mday(x),
  clock::get_day(x),
  lubridate::mday(x),
  funchir::quick_mday(x),
  ymd::mday(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.

run_bmk(
  data.table::wday(x),
  clock::weekday_code(clock::as_weekday(x)),
  lubridate::wday(x),
  ymd::wday(x)
)

run_bmk(
  data.table::isoweek(x),
  clock::get_week(clock::as_iso_year_week_day(x)),
  lubridate::isoweek(x),
  ymd::isoweek(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.

xfun::session_info()
#> R version 4.6.1 (2026-06-24)
#> Platform: aarch64-apple-darwin25.4.0
#> Running under: macOS Tahoe 26.5.2
#>
#> Locale: C.UTF-8 / C.UTF-8 / C.UTF-8 / C / C.UTF-8 / C.UTF-8
#>
#> Package version:
#>   base64enc_0.1.6   bench_1.1.4       bslib_0.12.0      cachem_1.1.0
#>   cli_3.6.6         clock_0.7.4       compiler_4.6.1    cpp11_0.5.5
#>   data.table_1.18.4 digest_0.6.39     evaluate_1.0.5    fastmap_1.2.0
#>   fontawesome_0.5.3 fs_2.1.0          funchir_0.3.0-1   generics_0.1.4
#>   glue_1.8.1        graphics_4.6.1    grDevices_4.6.1   highr_0.12
#>   htmltools_0.5.9   jquerylib_0.1.4   jsonlite_2.0.0    knitr_1.51
#>   lifecycle_1.0.5   lubridate_1.9.5   magrittr_2.0.5    memoise_2.0.1
#>   methods_4.6.1     mime_0.13         otel_0.2.0        pillar_1.11.1
#>   pkgconfig_2.0.3   profmem_0.7.0     R6_2.6.1          rappdirs_0.3.4
#>   rlang_1.3.0       rmarkdown_2.31    sass_0.4.10       stats_4.6.1
#>   tibble_3.3.1      timechange_0.4.0  tinytex_0.60      tools_4.6.1
#>   tzdb_0.5.0        utf8_1.2.6        utils_4.6.1       vctrs_0.7.3
#>   xfun_0.60         yaml_2.3.12       ymd_0.1.6