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 - BUBA
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 |
|---|---|---|---|
| BBASV | Deutsche Bundesbank, Statistics on Pension funds | 147918 | [html] |
datasets |>
filter(!(code %in% list_main_datasets)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}