## Not run: ------------------------------------
# # Get station table
# stations <- isd_stations()
# head(stations)
#
# # Get data
# (res <- isd(usaf="011490", wban="99999", year=1986))
# (res <- isd(usaf="011690", wban="99999", year=1993))
# (res <- isd(usaf="172007", wban="99999", year=2015))
# (res <- isd(usaf="702700", wban="00489", year=2015))
#
# # The first time a dataset is requested takes longer
# system.time( isd(usaf="782680", wban="99999", year=2011) )
# system.time( isd(usaf="782680", wban="99999", year=2011) )
#
# # Optionally pass in curl options
# res <- isd(usaf="011490", wban="99999", year=1986, config = verbose())
## ---------------------------------------------
Run the code above in your browser using DataLab