Code
PDYGTH |>
left_join(PDYGTH_var$VAR, by = "VAR") |>
group_by(VAR, Var) |>
summarise(Nobs = n()) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}Data - OECD
PDYGTH |>
left_join(PDYGTH_var$VAR, by = "VAR") |>
group_by(VAR, Var) |>
summarise(Nobs = n()) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}PDYGTH |>
left_join(PDYGTH_var$COU, by = "COU") |>
group_by(COU, Cou) |>
summarise(Nobs = n()) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}