# NOT RUN {
#An example for the Global Forecast System 0.5 degree model
#Get the latest model url and date
abbrev <- "gfs_0p50"
# }
# NOT RUN {
urls.out <- GetDODSDates(abbrev)
print(paste("Most recent model run:",tail(urls.out$date, 1)))
#Get model dates from the GFS archive
abbrev <- "gfs-avn-hi"
urls.out <- GetDODSDates(abbrev, archive = TRUE, request.sleep = 1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab