Health Care Utilisation - HEALTH_PROC

Data - OECD

Author

François Geerolf

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()