fix passthrough server-param

statistikat · Apr 18, 2024 · 3f65812 · 3f65812
1 parent 1b78bfb
commit 3f65812
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/key.R b/R/key.R
@@ -48,7 +48,7 @@ sc_key_set <- function(key, server = "ext", test = TRUE) {
 #'   an error is thrown.
 #' @export
 sc_key_get <- function(server = "ext") {
-  if (!sc_key_exists())
+  if (!sc_key_exists(server = server))
     stop("No STATcube key available. Set key with sc_key_set()")
   invisible(Sys.getenv(sc_key_env_var(server)))
 }