Você pode usar
zoo
's as.yearqtr
? zoo::as.yearqtr(Sys.Date())
#[1] "2021 Q2"
para obter dados em um formato específico, você pode usar
format
:format(zoo::as.yearqtr(Sys.Date()), '%Y-%q')
#[1] "2021-2"
zoo
's as.yearqtr
? zoo::as.yearqtr(Sys.Date())
#[1] "2021 Q2"
format
:format(zoo::as.yearqtr(Sys.Date()), '%Y-%q')
#[1] "2021-2"