Code
%>%
G17 group_by(SERIES_CODE, SERIES_NAME, CURRENCY, UNIT) %>%
summarise(Nobs = n()) %>%
left_join(G17_var$CURRENCY %>% rename(CURRENCY = id), by = "CURRENCY") %>%
select(-description.default) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {