Code
%>%
HEALTH_PROC left_join(HEALTH_PROC_var$VAR, by = "VAR") %>%
group_by(VAR, Var) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
Data - OECD
%>%
HEALTH_PROC left_join(HEALTH_PROC_var$VAR, by = "VAR") %>%
group_by(VAR, Var) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
%>%
HEALTH_PROC left_join(HEALTH_PROC_var$UNIT, by = "UNIT") %>%
group_by(UNIT, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
%>%
HEALTH_PROC left_join(HEALTH_PROC_var$COU, by = "COU") %>%
group_by(COU, Cou) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
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 .} {
%>%
HEALTH_PROC group_by(obsTime) %>%
summarise(Nobs = n()) %>%
arrange(desc(obsTime)) %>%
print_table_conditional()