R/login.R

In SantanderMetGroup/loadeR: A climate4R package for data access <http://meteo.unican.es/climate4r>

login <- function(username, password) {
    message("[",Sys.time(), "] Setting credentials...")
    J("ucar.httpservices.MyHTTPFactory")$setCredentials(username, password)
    message("[",Sys.time(), "] Credentials set for user ", username, ".")
    message("[",Sys.time(), "] Please, note that invalid credentials will generate unauthorized errors when accessing the data.")
}