if (FALSE) if (interactive()) {
# Generate url
file_url <- get_flights_url(type='basica', date=200011)
# download data
download_flightsbr_file(file_url=file_url,
showProgress=TRUE,
dest_file = tempfile(fileext = ".zip")
)
}
Run the code above in your browser using DataLab