creates a semesterly date vector from a date vector

date_yh(x)

Arguments

x

a date

Value

date vector

Examples


seq.Date(lubridate::ymd(20200101), lubridate::ymd(20220101), length.out = 10) -> d1
d1 %>%
  tibble::enframe() %>%
  dplyr::mutate(YH = date_yh(value))
#> # A tibble: 10 × 3
#>     name value      YH        
#>    <int> <date>     <date>    
#>  1     1 2020-01-01 2020-01-01
#>  2     2 2020-03-22 2020-01-01
#>  3     3 2020-06-11 2020-01-01
#>  4     4 2020-08-31 2020-07-01
#>  5     5 2020-11-20 2020-07-01
#>  6     6 2021-02-10 2021-01-01
#>  7     7 2021-05-02 2021-01-01
#>  8     8 2021-07-22 2021-07-01
#>  9     9 2021-10-11 2021-07-01
#> 10    10 2022-01-01 2022-01-01