Record entries in the database with inset-only priviledges

Author: phgrosjean

R/record_sdd.R

@@ -50,10 +50,11 @@ record_sdd <- function(tutorial_id, tutorial_version, user_id, event, data) {
     #url = "mongodb://sdd:sdd@ds125388.mlab.com:25388/sdd-test")$insert(entry)
     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"),
     silent = TRUE)
-  if (!inherits(m, "try-error") &&
+  if (!inherits(m, "try-error") #&&
       # No run() methods in mongolite 1.5
       #m$run(command = "{\"ping\": 1}", simplify = TRUE)$ok == 1) {
-      m$count() > -1) {
+      #m$count() > -1
+      ) {
     res <- try(m$insert(entry), silent = TRUE)
     # If there is something in the biodatascience file, inject it also now
     if (!inherits(res, "try-error")) {