if (FALSE) {
# Get list of recent extracts
list_of_last_10_extracts <- get_recent_extracts_info_list("usa")
# Print the extract number for extracts that are downloadable:
for (extract in list_of_last_10_extracts) {
if (is_extract_ready(extract)) print(extract$number)
}
# Convert list of extracts to tibble of extracts to view in a tabular format
extract_list_to_tbl(list_of_last_10_extracts)
}
Run the code above in your browser using DataLab