| file | LAST_DOWNLOAD |
|---|---|
| T11000_Q | 2022-10-09 |
| T11000_A | 2022-10-09 |
| LAST_COMPILE |
|---|
| 2024-02-11 |
| date | Nobs |
|---|---|
| 2022-06-30 | 24 |
T11000_A %>%
year_to_date %>%
mutate(year = year(date)) %>%
filter(year %in% c(1938, 1958, 1978, 1998, 2018)) %>%
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 .}T11000_A %>%
year_to_date %>%
mutate(year = year(date)) %>%
filter(year %in% c(1938, 1958, 1978, 1998, 2018)) %>%
group_by(year) %>%
mutate(value = round(DataValue/1000)) %>%
ungroup %>%
select(2, 3, 6, 7) %>%
spread(year, value) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}