Code
GOV_2019 %>%
left_join(GOV_2019_var$IND, by = "IND") %>%
group_by(IND, Ind) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}Data - OECD
GOV_2019 %>%
left_join(GOV_2019_var$IND, by = "IND") %>%
group_by(IND, Ind) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}GOV_2019 %>%
left_join(GOV_2019_var$COU, by = "COU") %>%
group_by(COU, Cou) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}