# NOT RUN {
# }
# NOT RUN {
# set key
wf_set_key(user = "test@mail.com", key = "123")
request <- list(stream = "oper",
levtype = "sfc",
param = "167.128",
dataset = "interim",
step = "0",
grid = "0.75/0.75",
time = "00",
date = "2014-07-01/to/2014-07-02",
type = "an",
class = "ei",
area = "50/10/51/11",
format = "netcdf",
target = "tmp.nc")
# demo query
wf_request(request = request, user = "test@mail.com")
# Run as an RStudio Job. When finished, will create a
# variable named "test" in your environment with the path to
# the downloaded file.
wf_request(request = request, user = "test@mail.com", job_name = "test")
# }
Run the code above in your browser using DataLab