Code
%>%
NGDP_XDC group_by(FREQ) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
FREQ | Nobs |
---|---|
A | 5942 |
Data - IMF - IFS
%>%
NGDP_XDC group_by(FREQ) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
FREQ | Nobs |
---|---|
A | 5942 |
%>%
NGDP_XDC left_join(REF_AREA, by = "REF_AREA") %>%
group_by(REF_AREA, Ref_area, FREQ) %>%
summarise(Nobs = n(),
min = first(TIME_PERIOD),
max = last(TIME_PERIOD)) %>%
arrange(-Nobs) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Ref_area))),
Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
select(Flag, everything()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {