if (FALSE) {
# Get tibble of recent extracts
tbl_of_last_10_extracts <- get_recent_extracts_info_tbl("usa")
# Filter down to extracts with "income" in the description
description_mentions_income <- grepl(
"[Ii]ncome",
tbl_of_last_10_extracts$description
)
income_extracts <- tbl_of_last_10_extracts[description_mentions_income, ]
# Convert tibble of extracts to list of extracts
income_extracts <- extract_tbl_to_list(income_extracts)
# Now it's easier to operate on those elements as extract objects:
revised_income_extract <- add_to_extract(
income_extracts[[1]],
samples = "us2018a"
)
submitted_revised_income_extract <- submit_extract(revised_income_extract)
}
Run the code above in your browser using DataLab