Inform at startup when OSF_SERVER is defined

(ropensci/software-review/issues/279)
ropensci · Feb 7, 2019 · 490b981 · 490b981
1 parent 6a2e58d
commit 490b981
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/zzz.R b/R/zzz.R
@@ -24,4 +24,11 @@
   if (!is.null(getOption("osfr.pat"))) {
     packageStartupMessage("Automatically registered OSF personal access token")
   }
+
+  server <- Sys.getenv("OSF_SERVER")
+  if (!nzchar(server)) {
+    packageStartupMessage(
+      sprintf("<Testing server enabled: %s.osf.io>", tolower(server))
+    )
+  }
 }