MONGO_URL_SERVER added

Author: phgrosjean

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: BioDataScience
 Type: Package
-Version: 2020.0.9001
+Version: 2020.0.9002
 Title: A Series of Learnr Documents for Biological Data Science
 Description: Interactive documents using learnr for studying biological data science.
 Authors@R: c(

NEWS.md

@@ -1,6 +1,10 @@
+# BioDataScience 2020.0.9002
+
+- Add `MONGO_URL_SERVER` environmlent variable in `init()`.
+
 # BioDataScience 2020.0.9001
 
-- Separate `MONGO_SER` and `MONGO_PASSWORD` variables in `init()` and do not set them if already there.
+- Separate `MONGO_USER` and `MONGO_PASSWORD` variables in `init()` and do not set them if already there.
 
 # BioDataScience 2020.0.9000
 

R/init.R

@@ -1,9 +1,10 @@
 #' Initialize the environment for our BioDataScience courses
 #'
 #' This function creates several environment variables that are widely used by
-#' other packages and applications. Currently, `MONGO_URL`, `MONGO_BASE`,
-#' `MONGO_USER` and `MONGO_PASSWORD` are set to default values if not already
-#' there.
+#' other packages and applications. Currently, `MONGO_URL`, `MONGO_URL_SERVER`
+#' (the later one is used if the application is run from a server),
+#' `MONGO_BASE`, `MONGO_USER` and `MONGO_PASSWORD` are set to default values if
+#' not already there.
 #'
 #' @return Nothing, the function is used for its side-effect of creating global
 #' variables.
@@ -19,6 +20,8 @@ init <- function() {
   # Set variable environment required to locate our sdd MongoDB database
   if (Sys.getenv("MONGO_URL") == "")
     Sys.setenv(MONGO_URL = "mongodb://{user}:{password}@sdd-umons-shard-00-00-umnnw.mongodb.net:27017,sdd-umons-shard-00-01-umnnw.mongodb.net:27017,sdd-umons-shard-00-02-umnnw.mongodb.net:27017/test?ssl=true&replicaSet=sdd-umons-shard-0&authSource=admin")
+  if (Sys.getenv("MONGO_URL_SERVER") == "")
+    Sys.setenv(MONGO_URL_SERVER = "mongodb://localhost")
   if (Sys.getenv("MONGO_BASE") == "")
     Sys.setenv(MONGO_BASE = "sdd")
   if (Sys.getenv("MONGO_USER") == "")