# NOT RUN {
# }
# NOT RUN {
# set key
wf_set_key(user = "test@mail.com", key = "123")
# request data and grab url and try a transfer
r <- wf_request(request, "test@email.com", transfer = FALSE)
# check transfer, will download if available
wf_transfer(r$href, "test@email.com")
# }
Run the code above in your browser using DataLab