Code
T10111_Q |>
quarter_to_date() |>
mutate(year = year(date)) |>
filter(year %in% c(1938, 1958, 1978, 1998, 2018),
month(date) == 3) |>
group_by(year) |>
mutate(value = round(DataValue, 2)) |>
ungroup() |>
select(2, 3, 6, 7) |>
spread(year, value) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}
Data - BEA