Data - ECB
François Geerolf
SHI |> group_by(TITLE_COMPL) |> summarise(Nobs = n()) |> arrange(-Nobs) %>% {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}