collect_sdd() with user/password arguments

Author: phgrosjean

NEWS.md

@@ -4,6 +4,11 @@
 
 - Review of the all tutorials (00a - 13c) with the **svbox 2019**
 
+- Internal function `collect_sdd()` now has `user =` and `password =` arguments
+  and the user/password used by default by `record_sdd()` cannot read data in
+  the database anymore.
+
+
 ## Changes in version 2018.0.0
 
 - `run()` modified to install latest release matching svbox year.

R/record_sdd.R

@@ -79,12 +79,9 @@ record_sdd <- function(tutorial_id, tutorial_version, user_id, event, data) {
 # Use: options(tutorial.event_recorder = record_sdd)
 #
 # To collect these data:
-collect_sdd <- function() {
-  mdb <- mongolite::mongo("sdd", #url = "mongodb://sdd:sdd@ds125318.mlab.com:25318/sdd-cours")
-    #url = "mongodb://sdd:sdd@ds125388.mlab.com:25388/sdd-test")
-    url = "mongodb://sdd:sdd@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")
-    # url = "mongodb://sdd:sdd@sdd-umons-shard-00-01-umnnw.mongodb.net:27017")
-    #mongodb://sdd:<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
+collect_sdd <- function(user, password) {
+  mdb <- mongolite::mongo("sdd",
+    url = paste0("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"))
   #print(mdb)
   if (mdb$count())
     mdb$find()