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