commit 1057b6ec856ee4d3f72d6e4a81ac70e79fce6833
author Marc Kupietz <kupietz@ids-mannheim.de> Fri Nov 08 16:01:12 2019 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Fri Nov 08 16:42:53 2019 +0100
tree 12ffd7a05d9cb9e2e0fc95200c245c3303b0f6e1
parent fd9e7497c61d6bb155d4c54cca924ad7675fc92e

Use apiTokenServiceName constant and not the string

Change-Id: If695b2476752c3beccfe0d11656d96ed1f3f7fde

R/KorAPConnection.R

diff --git a/R/KorAPConnection.R b/R/KorAPConnection.R
index 53fbc1c..cdc51f8 100644
--- a/R/KorAPConnection.R
+++ b/R/KorAPConnection.R
@@ -114,14 +114,14 @@
 #' }
 #'
 setMethod("clearApiToken", "KorAPConnection",  function(kco) {
-  key_delete("RKorAPClientAPIToken", kco@KorAPUrl)
+  key_delete(apiTokenServiceName, kco@KorAPUrl)
 })
 
 #' @import keyring
 getApiToken <- function(KorAPUrl) {
   if ("keyring" %in% installed.packages()[,1 ]&& has_keyring_support()
-         && KorAPUrl %in% key_list(service = "RKorAPClientAPIToken"))
-         key_get("RKorAPClientAPIToken", KorAPUrl)
+         && KorAPUrl %in% key_list(service = apiTokenServiceName))
+         key_get(apiTokenServiceName, KorAPUrl)
   else
     NULL
 }