PERS_INDU %>%
left_join(PERS_INDU_var$COUNTRY, by = "COUNTRY") %>%
group_by(COUNTRY, Country) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(Country)),
Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
select(Flag, everything()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}
PERS_INDU %>%
left_join(PERS_INDU_var$FUNCTION, by = "FUNCTION") %>%
group_by(FUNCTION, Function) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}
FUNCTION | Function | Nobs |
---|---|---|
RSE | Researchers | 46888 |
_T | Total internal personnel | 35322 |
PERS_INDU %>%
left_join(PERS_INDU_var$MEASURE, by = "MEASURE") %>%
group_by(MEASURE, Measure) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}
MEASURE | Measure | Nobs |
---|---|---|
FTE | Full time equivalent | 82210 |