# NOT RUN {
df <- download_wbank_data(silent = TRUE, cached = TRUE)
df %>%
dplyr::select(country, population) %>%
dplyr::arrange(-population)
lst <- download_wbank_data(silent = TRUE, cached = TRUE, var_def = TRUE)
lst[[1]] %>%
tidyr::pivot_longer(5:10, names_to = "wbank_variable", values_to = "values") %>%
dplyr::group_by(wbank_variable) %>%
dplyr::summarise(non_na = sum(!is.na(values)))
# }
Run the code above in your browser using DataLab