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