m$disconnect() also not available in mongolite version 1.5 => commented out

Author: phgrosjean

DESCRIPTION

@@ -10,7 +10,7 @@ Authors@R: c(
   email = "[email protected]"))
 Maintainer: Philippe Grosjean <[email protected]>
 Depends: R (>= 3.3.0)
-Imports: learnr, httr, jsonlite, remotes, svMisc, mongolite
+Imports: learnr, httr, jsonlite, remotes, svMisc, mongolite (>= 1.5)
 Suggests: SciViews, ggplot2, ggpubr, data.io, flow, chart, covr, knitr, testthat
 License: CC BY-SA 4.0
 Encoding: UTF-8

R/record_sdd.R

@@ -54,6 +54,7 @@ record_sdd <- function(tutorial_id, tutorial_version, user_id, event, data) {
     url = "mongodb://sdd:[email protected]: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") &&
+      # No run() methods in mongolite 1.5
       #m$run(command = "{\"ping\": 1}", simplify = TRUE)$ok == 1) {
       m$count() > -1) {
     m$insert(entry)
@@ -65,7 +66,8 @@ record_sdd <- function(tutorial_id, tutorial_version, user_id, event, data) {
         for (i in 1:length(dat))
           m$insert(unserialize(base64_dec(dat[i])))
     }
-    m$disconnect()
+    # No disconnect() method in mongolite 1.5
+    #m$disconnect()
   } else {# MongoDB database not available... save locally
     add_file_base64(entry, file = bds_file)
   }