# NOT RUN {
#An example for the Global Forecast System 0.5 degree model
#Get the latest model url and date, real time server
abbrev <- "gfs_0p50"
# }
# NOT RUN {
urls.out <- GetDODSDates(abbrev)
model.url <- tail(urls.out$url, 1)
model.runs <- GetDODSModelRuns(model.url)
print(paste("Latest model run", tail(model.runs$model.run.info, 1)))
# }
# NOT RUN {
#Get model dates from the GFS analysis archive
abbrev <- "gfsanl"
model.url <- NOMADSArchiveList("dods", abbrev = abbrev)$url
# }
# NOT RUN {
model.runs <- GetDODSModelRuns(model.url)
print(model.runs$model.run.info)
# }
Run the code above in your browser using DataLab