Merge pull request #47 from eliocamp/env-backend

Adds explicit service to get_key
bluegreen-labs · Dec 23, 2019 · b843d21 · b843d21
2 parents dabcf2f + 0ed2fe6
commit b843d21
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/wf_request.R b/R/wf_request.R
@@ -97,7 +97,8 @@ wf_request <- function(
  }
 
  if (missing(user)) {
- user <- keyring::key_list()
+ user <- rbind(keyring::key_list(service = ecmwfr:::make_key_service(c("webapi"))),
+ keyring::key_list(service = ecmwfr:::make_key_service(c("cds"))))
  serv <- make_key_service()
  user <- user[substr(user$service, 1, nchar(serv)) == serv, ][["username"]]
  }