| 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 .}