Code
load_data("oecd/ALFS_POP_VITAL_var.RData")
ALFS_POP_VITAL <- read_parquet("ALFS_POP_VITAL.parquet")Data - OECD
load_data("oecd/ALFS_POP_VITAL_var.RData")
ALFS_POP_VITAL <- read_parquet("ALFS_POP_VITAL.parquet")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 .}ALFS_POP_VITAL_var |>
pluck("VAR_DESC") %>%
{if (is_html_output()) print_table(.) 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 |
ALFS_POP_VITAL_var |>
pluck("SUBJECT") %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}