Hotfix keyring handling again
A proper solution need some thinking.
Change-Id: I99585475dce0228f4b6cb2dc1cccb34211f025d1
diff --git a/R/KorAPConnection.R b/R/KorAPConnection.R
index a5ac7d9..878240f 100644
--- a/R/KorAPConnection.R
+++ b/R/KorAPConnection.R
@@ -120,7 +120,7 @@
#' @import keyring
getApiToken <- function(KorAPUrl) {
- keyList <- key_list(service = apiTokenServiceName)
+ keyList <- tryCatch(key_list(service = apiTokenServiceName), error = function(e) return(NULL))
if (KorAPUrl %in% keyList)
key_get(apiTokenServiceName, KorAPUrl)
else