~/data/oecd/
## Warning: package 'XML' was built under R version 4.3.2
NAAG_I %>% group_by(REF_AREA) %>% summarise(Nobs = n()) %>% {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}