if (FALSE) if (interactive()) {
# Generate url
file_url <- get_airfares_url(dom = TRUE, date=200211)
# download data
a <- download_airfares_data(file_urls=file_url, showProgress=TRUE, select=NULL)
}
Run the code above in your browser using DataLab