file | LAST_DOWNLOAD |
---|---|
T11400_Q | NA |
T11400_A | 2022-10-09 |
LAST_COMPILE |
---|
2024-02-11 |
date | Nobs |
---|---|
2021-12-31 | 43 |
T11400_A %>%
year_to_date %>%
mutate(year = year(date)) %>%
filter(year %in% c(1929, 1949, 1969, 1989, 2009, 2019)) %>%
group_by(year) %>%
mutate(value = round(100*DataValue/DataValue[1], 1)) %>%
ungroup %>%
select(2, 3, 6, 7) %>%
spread(year, value) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}