Code
%>%
UNE_TUNE_SEX_AGE_NB_A left_join(classif1, by = "classif1") %>%
group_by(classif1, Classif1) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Data - ILO
%>%
UNE_TUNE_SEX_AGE_NB_A left_join(classif1, by = "classif1") %>%
group_by(classif1, Classif1) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
UNE_TUNE_SEX_AGE_NB_A left_join(source, by = "source") %>%
group_by(source, Source) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
UNE_TUNE_SEX_AGE_NB_A left_join(sex, by = "sex") %>%
group_by(sex, Sex) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
UNE_TUNE_SEX_AGE_NB_A left_join(indicator, by = "indicator") %>%
group_by(indicator, Indicator) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
UNE_TUNE_SEX_AGE_NB_A filter(classif1 == "AGE_YTHADULT_YGE15",
== "SEX_T",
sex == 2018) %>%
time mutate(value = round(obs_value)) %>%
arrange(-time) %>%
select(iso2c = ref_area, value) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {