Health Care Utilisation - HEALTH_PROC

Data - OECD

VAR

Code
HEALTH_PROC %>%
  left_join(HEALTH_PROC_var$VAR, by = "VAR") %>%
  group_by(VAR, Var) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

UNIT

Code
HEALTH_PROC %>%
  left_join(HEALTH_PROC_var$UNIT, by = "UNIT") %>%
  group_by(UNIT, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

COU

Code
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 .}

obsTime

Code
HEALTH_PROC %>%
  group_by(obsTime) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(obsTime)) %>%
  print_table_conditional()