if (FALSE) {
# set key
rs_set_key(user = "test", password = "123")
# request data and grab url and try a transfer
r <- rs_request(request, "test", transfer = FALSE)
# check transfer, will download if available
rs_transfer(r$get_task_id(), user = "test")
}
Run the code above in your browser using DataLab