my_extract <- define_extract_usa("Example", "us2013a", "YEAR")
if (FALSE) {
submit_extract(my_extract)
# Oops, forgot to capture the return object from submit_extract. Grab it with:
submitted_extract <- get_last_extract_info("usa")
# View the extract number
submitted_extract$number
# Check if submitted extract is ready
is_extract_ready(submitted_extract) # returns TRUE or FALSE
# Or have R check periodically until the extract is ready
downloadable_extract <- wait_for_extract(submitted_extract)
}
Run the code above in your browser using DataLab