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