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"