set default server for plugins

ref #552
OuhscBbmc · Nov 8, 2024 · 915249f · 915249f
1 parent 5ab6830
commit 915249f
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/helpers-testing.R b/R/helpers-testing.R
@@ -64,11 +64,12 @@ retrieve_plugins <- function(plugin_name) {
   checkmate::assert_character(plugin_name     , any.missing = FALSE, min.chars = 2, max.chars = 50)
 
   server_instance <-
-    # if(Sys.getenv("redcapr_test_server") != "") {
+    if(Sys.getenv("redcapr_test_server") != "") {
       Sys.getenv("redcapr_test_server")
-    # } else {
-    #   "dev-2"
-    # }
+    } else {
+      message("The test server was not explicitly set for plugins, so defaulting to 'dev-2'.")
+      "dev-2"
+    }
   checkmate::assert_character(server_instance , any.missing = FALSE, min.chars = 2, max.chars = 50)
 
   # This line avoids a warning from the package check.