santandermetgroup / climate4r.udg Goto Github PK

Dear all,

This code was working yesterday but somehow now it gives this error. I wonder if this is temporary issue?

library(loadeR)
library(transformeR)
library(visualizeR)
library(downscaleR)
library(climate4R.value)
library(climate4R.UDG)

When I run the code below, it works well.

climate4R.UDG::loginUDG(username = "XXXXXX", password = "XXXXXX")

2020-07-22 10:22:26] Setting credentials...
[2020-07-22 10:22:26] Success!
Go to http://www.meteo.unican.es/udg-tap/home for details on your authorized groups and datasets

However loadGridData could not access the dataset URL. Any idea of the possible reason?

vars <- c("tas","ta@500","ta@700", "ta@850",
"hus@500","hus@850","z@500")

data("PRUDENCEregions", package = "visualizeR")
bb <- PRUDENCEregions["IP"]@bbox
lon <- bb[1,]; lat <- bb[2,]
grid.list5 <- lapply(vars, function(x) {
loadGridData(dataset = "ECMWF_ERA-Interim-ESD",
var = x,
lonLim = lon,
latLim = lat,
years = 1979:2008)
}
)

It gives error:

NOTE: Accessing harmonized data from a public UDG dataset
[2020-07-22 10:23:07] Defining harmonization parameters for variable "psl"
[2020-07-22 10:23:07] Opening dataset...
Error: The requested dataset URL was not found (HTTP error 404

Hi,

In order to avoid showing my UDG user/password openly in notebooks/scripts I usually do:

do.call(loginUDG, as.list(readLines("udg_login.txt")))

which is quite dirty for the purpose. I think this could be easily implemented internally in loginUDG(), either as e.g.:

loginUDG(from.file = "udg_login.txt")

Or just let the function try to find a default file (e.g. ~/.udgrc) when called without arguments loginUDG()