if (FALSE) {
# request data and grab url and try a transfer
# (request not provided)
r <- wf_request(request, transfer = FALSE)
# check transfer, will download if available
wf_transfer(r$get_url())
}
Run the code above in your browser using DataLab