# 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)
extract_file("https://bd-api-dev.ncsa.illinois.edu",
"http://browndog.ncsa.illinois.edu/examples/gi/Dongying_sample.csv", token)
# }
Run the code above in your browser using DataLab