Date -> calyear (character)
Examples
date_to_calyear_c("2021-08-11")
#> [1] "2021"
date_to_calyear_c(lubridate::today())
#> [1] "2023"
Date -> calyear (character)
date_to_calyear_c("2021-08-11")
#> [1] "2021"
date_to_calyear_c(lubridate::today())
#> [1] "2023"