Convert ‘YMD’ format number or string to Date efficiently, e.g., 211225 to as.Date("2021-12-25"), using Rust’s standard library. It also provides helper functions to handle Date, e.g., quick finding the beginning or end of the given period, adding months to Date, etc.
It’s similar to the lubridate package but is much lighter and focuses only on Date objects.
Installation
CRAN provides the binary package. So, if you are on Windows or macOS, the package can be installed via:
If you are on Linux, you can try to use the RSPM (RStudio Package Manager) repo provided by RStudio PBC, via (remember to choose the correct binary repo URL for your platform):
If you want to build the dev version from source, you’ll need the Rust toolchain, which can be installed following the instructions from the Rust book.
After that, you can build the package via:
remotes::install_github("ymd")
Use Cases and Benchmarks
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()
}
ymd
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)
)
| ymd::ymd(x) |
39.8 |
40.6 |
24357.7 |
810.1KB |
0.0 |
10000 |
0 |
| lubridate::ymd(x) |
1390.4 |
1546.6 |
642.9 |
9.01MB |
10.9 |
295 |
5 |
x <- c(210101, 210224, 211231, 19890103)
x <- rep(x, 100)
run_bmk(
ymd::ymd(x),
lubridate::ymd(x)
)
| ymd::ymd(x) |
12.4 |
13.4 |
71767.6 |
3.17KB |
0.0 |
10000 |
0 |
| lubridate::ymd(x) |
1724.9 |
1897.4 |
511.3 |
365.38KB |
15.2 |
235 |
7 |
x <- c("2021-01-01", "2022-12-31", "1995-03-22")
x <- rep(x, 100)
run_bmk(
ymd::ymd(x),
lubridate::ymd(x),
as.Date(x)
)
| ymd::ymd(x) |
29.1 |
30.7 |
31806.3 |
2.39KB |
3.2 |
9999 |
1 |
| lubridate::ymd(x) |
796.1 |
891.8 |
1074.0 |
193.52KB |
15.1 |
499 |
7 |
| as.Date(x) |
790.5 |
829.7 |
1194.6 |
85.44KB |
0.0 |
598 |
0 |
x <- ymd::ymd(210515) + 1:100
run_bmk(
ymd::eop$tm(x),
lubridate::ceiling_date(x, "month") - 1
)
| ymd::eop$tm(x) |
5.7 |
6.4 |
149613.5 |
19.3KB |
0.0 |
10000 |
0 |
| lubridate::ceiling_date(x, “month”) - 1 |
34.2 |
37.8 |
25043.7 |
155.5KB |
27.6 |
9989 |
11 |
edate
`%m+%` <- lubridate::`%m+%`
x <- ymd::ymd(c(200115, 200131, 200229, 200331, 200401))
x <- rep(x, 100)
run_bmk(
ymd::edate(x, 2),
x %m+% months(2)
)
| ymd::edate(x, 2) |
12.4 |
13.4 |
70780.5 |
6.2KB |
0.0 |
10000 |
0 |
| x %m+% months(2) |
1140.7 |
1219.1 |
801.4 |
496.8KB |
6.1 |
391 |
3 |
| ymd::edate(x, -12) |
12.5 |
13.5 |
69090.5 |
3.95KB |
0.0 |
10000 |
0 |
| x %m+% months(-12) |
1510.1 |
1674.2 |
589.7 |
310.64KB |
12.7 |
278 |
6 |
# 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),
lubridate::year(x),
funchir::quick_year(x),
ymd::year(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.
| data.table::year(x) |
4528.2 |
4988.7 |
172.0 |
7.64MB |
40.0 |
86 |
20 |
| lubridate::year(x) |
281901.9 |
282685.4 |
3.5 |
57.23MB |
7.1 |
2 |
4 |
| funchir::quick_year(x) |
30036.8 |
30385.8 |
27.7 |
26.76MB |
7.9 |
14 |
4 |
| ymd::year(x) |
7976.5 |
8543.1 |
113.7 |
3.82MB |
6.0 |
57 |
3 |
run_bmk(
data.table::month(x),
lubridate::month(x),
ymd::month(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.
| data.table::month(x) |
21728.8 |
21979.7 |
44.8 |
7.63MB |
3.9 |
23 |
2 |
| lubridate::month(x) |
265033.9 |
267228.5 |
3.7 |
95.37MB |
3.7 |
2 |
2 |
| ymd::month(x) |
7696.7 |
8770.6 |
111.0 |
3.82MB |
9.9 |
56 |
5 |
run_bmk(
data.table::quarter(x),
lubridate::quarter(x),
ymd::quarter(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.
| data.table::quarter(x) |
17607.5 |
17977.1 |
51.1 |
7.63MB |
7.9 |
26 |
4 |
| lubridate::quarter(x) |
285546.4 |
289119.8 |
3.5 |
110.66MB |
3.5 |
2 |
2 |
| ymd::quarter(x) |
14518.9 |
15361.2 |
64.0 |
3.82MB |
4.0 |
32 |
2 |
run_bmk(
data.table::yday(x),
lubridate::yday(x),
funchir::quick_yday(x),
ymd::yday(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.
| data.table::yday(x) |
8542.5 |
8857.7 |
109.3 |
7.63MB |
8.0 |
55 |
4 |
| lubridate::yday(x) |
240595.5 |
244088.8 |
3.9 |
57.23MB |
6.5 |
3 |
5 |
| funchir::quick_yday(x) |
23482.6 |
24758.5 |
39.7 |
19.08MB |
13.9 |
20 |
7 |
| ymd::yday(x) |
8091.3 |
8580.1 |
105.7 |
3.82MB |
8.0 |
53 |
4 |
run_bmk(
data.table::mday(x),
lubridate::mday(x),
funchir::quick_mday(x),
ymd::mday(x)
)
| data.table::mday(x) |
21263.0 |
21479.8 |
46.5 |
7.63MB |
4.4 |
21 |
2 |
| lubridate::mday(x) |
243894.2 |
243894.2 |
4.1 |
49.59MB |
8.2 |
1 |
2 |
| funchir::quick_mday(x) |
9031.9 |
9400.6 |
106.0 |
15.28MB |
16.7 |
38 |
6 |
| ymd::mday(x) |
8168.1 |
8903.7 |
112.3 |
3.82MB |
4.2 |
54 |
2 |
run_bmk(
data.table::wday(x),
lubridate::wday(x),
ymd::wday(x)
)
| data.table::wday(x) |
2781.9 |
3030.6 |
328.9 |
7.63MB |
29.0 |
136 |
12 |
| lubridate::wday(x) |
243859.8 |
243859.8 |
4.1 |
57.22MB |
12.3 |
1 |
3 |
| ymd::wday(x) |
9403.2 |
10239.4 |
97.9 |
3.82MB |
6.5 |
45 |
3 |
run_bmk(
data.table::isoweek(x),
lubridate::isoweek(x),
ymd::isoweek(x)
)
#> Warning: Some expressions had a GC in every iteration; so filtering is
#> disabled.
| data.table::isoweek(x) |
3606869.8 |
3606869.8 |
0.3 |
259.48MB |
1.1 |
1 |
4 |
| lubridate::isoweek(x) |
614492.8 |
614492.8 |
1.6 |
270.87MB |
6.5 |
1 |
4 |
| ymd::isoweek(x) |
10148.3 |
11139.3 |
87.7 |
3.82MB |
4.0 |
44 |
2 |
Session Info
xfun::session_info()
#> R version 4.4.1 (2024-06-14)
#> Platform: aarch64-apple-darwin20
#> Running under: macOS Sonoma 14.6
#>
#> Locale: en_US.UTF-8 / en_US.UTF-8 / en_US.UTF-8 / C / en_US.UTF-8 / en_US.UTF-8
#>
#> Package version:
#> base64enc_0.1.3 bench_1.1.3 bslib_0.8.0 cachem_1.1.0
#> cli_3.6.3 compiler_4.4.1 cpp11_0.4.7 data.table_1.15.4
#> digest_0.6.36 evaluate_0.24.0 fansi_1.0.6 fastmap_1.2.0
#> fontawesome_0.5.2 fs_1.6.4 funchir_0.2.2 generics_0.1.3
#> glue_1.7.0 graphics_4.4.1 grDevices_4.4.1 highr_0.11
#> htmltools_0.5.8.1 jquerylib_0.1.4 jsonlite_1.8.8 knitr_1.48
#> lifecycle_1.0.4 lubridate_1.9.3 magrittr_2.0.3 memoise_2.0.1
#> methods_4.4.1 mime_0.12 pillar_1.9.0 pkgconfig_2.0.3
#> profmem_0.6.0 R6_2.5.1 rappdirs_0.3.3 rlang_1.1.4
#> rmarkdown_2.27 sass_0.4.9 stats_4.4.1 tibble_3.2.1
#> timechange_0.3.0 tinytex_0.52 tools_4.4.1 utf8_1.2.4
#> utils_4.4.1 vctrs_0.6.5 xfun_0.46 yaml_2.3.10
#> ymd_0.1.1