if (FALSE) {
# Download and prepare SCF data for 2022
td <- tempfile("download_")
dir.create(td)
old <- getwd()
setwd(td)
scf_download(2022)
# Load into a survey design object
scf2022 <- scf_load(2022, data_directory = td)
# Cleanup for package check
unlink(td, recursive = TRUE, force = TRUE)
setwd(old)
}
Run the code above in your browser using DataLab