#An example for the Global Forecast System 0.5 degree model
#Get the latest model url and date, real time server
abbrev <- "gfs_0p50"
if (FALSE) {
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)))
}
Run the code above in your browser using DataLab