From 3f658121708746ae466b1637e44a655063207d8e Mon Sep 17 00:00:00 2001
From: Bernhard Meindl <bernhard.meindl@statistik.gv.at>
Date: Thu, 18 Apr 2024 11:49:34 +0200
Subject: [PATCH] fix passthrough server-param

---
 R/key.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/key.R b/R/key.R
index 4535cdf2..b07d895d 100644
--- 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)))
 }