Code
SNA |>
left_join(CL_INDICATOR_SNA, by = "INDICATOR") |>
group_by(INDICATOR, INDICATOR_desc, FREQ) |>
summarise(Nobs = n()) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}Data - IMF
SNA |>
left_join(CL_INDICATOR_SNA, by = "INDICATOR") |>
group_by(INDICATOR, INDICATOR_desc, FREQ) |>
summarise(Nobs = n()) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}SNA |>
filter(INDICATOR == "NGDP_R_XDC") |>
group_by(iso2c, FREQ) |>
summarise(Nobs = n(),
date1 = first(date),
date2 = last(date)) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}