# NOT RUN {
key <- get_key("https://bd-api-dev.ncsa.illinois.edu", "your email", "password")
token <- get_token("https://bd-api-dev.ncsa.illinois.edu", key)
download("https://bd-api-dev.ncsa.illinois.edu", "vdc.csv", token)
# }
Run the code above in your browser using DataLab