if (FALSE) { # interactive()
# download PNS 2019 data
df <- pns_data(year = 2019, cache_dir = tempdir())
# download all years
df_all <- pns_data(cache_dir = tempdir())
# select specific variables
df_subset <- pns_data(
year = 2019,
vars = c("V0001", "C006", "C008", "V0028"),
cache_dir = tempdir()
)
}
Run the code above in your browser using DataLab