Code
datasets %>%
filter(code %in% list_main_datasets) %>%
mutate(html = paste0('<a target=_blank href=', code, '.html > html </a>')) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}Data
datasets %>%
filter(code %in% list_main_datasets) %>%
mutate(html = paste0('<a target=_blank href=', code, '.html > html </a>')) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}datasets %>%
filter(code %in% list_main_datasets) %>%
mutate(html = paste0("[html](", code, '.html)')) %>%
{if (is_html_output()) print_table(.) else .}| code | name | Nobs | html |
|---|---|---|---|
| 51000BJ002 | Foreign trade, Exports: Net mass, Exports: Value, Exports: Value (US-Dollar), Imports: Net mass, Imports: Value, Imports: Value (US-Dollar), Country Nomenclature for External Trade Statistics, Germany, Year | 41310 | [html] |
| 51000BM002 | Foreign trade, Exports: Net mass, Exports: Value, Exports: Value (US-Dollar), Imports: Net mass, Imports: Value, Imports: Value (US-Dollar), Country Nomenclature for External Trade Statistics, Germany, Months, Year | NaN | [html] |
| 61111B5001 | Consumer price index for Germany, Weighting, Germany, Individual consumption by purpose, 2-digit codes, Year | 60 | [html] |
| 61111B5002 | Consumer price index for Germany, Weighting, Germany, Individual consumption by purpose, 3-digit codes, Year | 210 | [html] |
| 61111B5003 | Consumer price index for Germany, Weighting, Germany, Individual consumption by purpose, 4-digit codes, Year | 531 | [html] |
| 61111B5004 | Consumer price index for Germany, Weighting, Germany, Individual consumption by purpose, 5-digit codes, Year | 1365 | [html] |
datasets %>%
filter(!(code %in% list_main_datasets)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}