commit ddce55629b02d656be11af334f68ede507dfe643
author Marc Kupietz <kupietz@ids-mannheim.de> Sun Nov 24 15:45:38 2019 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Mon Nov 25 09:47:54 2019 +0100
tree 842b58471ee3ce80f262b80d53c78abbfc525ee4
parent 0f80a29e1ce63818b4b0679ea3f068a35bc9b5cf

Suppress warnings when only looking for keystore service

Change-Id: Ifb28be55d2191902161b440887780d1266a94011

R/KorAPConnection.R

diff --git a/R/KorAPConnection.R b/R/KorAPConnection.R
index 878240f..98a088f 100644
--- a/R/KorAPConnection.R
+++ b/R/KorAPConnection.R
@@ -120,7 +120,9 @@
 
 #' @import keyring
 getApiToken <- function(KorAPUrl) {
-  keyList <- tryCatch(key_list(service = apiTokenServiceName), error = function(e) return(NULL))
+    keyList <- withCallingHandlers(key_list(service = apiTokenServiceName),
+                                   warning = function(w) invokeRestart("muffleWarning"),
+                                   error = function(e) return(NULL))
   if (KorAPUrl %in% keyList)
     key_get(apiTokenServiceName, KorAPUrl)
   else