# in case there is connection issue
load_data <- function(cond) {
message(paste("conection issue, loading pre-downloaded data"))
DATA <- readRDS(paste0(system.file("extdata",package="eva3dm"),
"/riem_OAKB_jan_2012.Rds"))
return(DATA)
}
sites <- c("OAKB")
for(site in sites){
cat('Trying to download METAR from:',site,'...\n')
DATA <- tryCatch(riem::riem_measures(station = sites,
date_start = "2012-01-01",
date_end = "2012-02-01"),
error = load_data)
}
data_daily_mean <- daily(DATA,time = 'valid')
data_daily_min <- daily(DATA[1:7],time = 'valid',stat = min)
data_daily_max <- daily(DATA[1:7],time = 'valid',stat = max)
Run the code above in your browser using DataLab