~/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 .}