ALFS_POP_VITAL %>%
left_join(ALFS_POP_VITAL_var %>% pluck("SUBJECT"), by = c("SUBJECT" = "id")) %>%
rename(`SUBJECT Description` = label) %>%
group_by(SUBJECT, `SUBJECT Description`) %>%
summarise(nobs = n()) %>%
arrange(-nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}| id | description |
|---|---|
| LOCATION | Country |
| SUBJECT | Subject |
| FREQUENCY | Frequency |
| TIME | Time |
| OBS_VALUE | Observation Value |
| TIME_FORMAT | Time Format |
| OBS_STATUS | Observation Status |
| UNIT | Unit |
| POWERCODE | Unit multiplier |
| REFERENCEPERIOD | Reference period |