Date -> calyear (numeric)
Examples
date_to_calyear_n("2021-08-11")
#> [1] 2021
date_to_calyear_n(lubridate::today())
#> [1] 2024
Date -> calyear (numeric)
date_to_calyear_n("2021-08-11")
#> [1] 2021
date_to_calyear_n(lubridate::today())
#> [1] 2024