The package now contains config(), sign_in() and sign_out() only.

Author: phgrosjean

DESCRIPTION

@@ -1,15 +1,16 @@
 Package: BioDataScience
 Type: Package
 Version: 2020.0.0
-Title: A Series of Learnr Documents for Biological Data Science
-Description: Interactive documents using learnr for studying biological data science.
+Title: Configuration for Biological Data Science Course
+Description: User sign in and sign out for the course.
 Authors@R: c(
   person("Philippe", "Grosjean", role = c("aut", "cre"),
   email = "phgrosjean@sciviews.org"),
   person("Guyliann", "Engels", role = "aut",
   email = "guyliann.engels@umons.ac.be"))
 Maintainer: Philippe Grosjean <phgrosjean@sciviews.org>
 Depends: R (>= 3.3.0)
+Imports: learndown
 Suggests: covr, knitr, testthat
 License: MIT + file LICENSE
 Encoding: UTF-8

NAMESPACE

@@ -1,3 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
-export(init)
+export(config)
+export(sign_in)
+export(sign_out)

NEWS.md

@@ -2,10 +2,12 @@
 
 - Clean up finished. Most code moved to learndown. Learnr tutorials and Shiny
 applications moved to BioDataScience1.
+- The package now contains `config()`, `sign_in()` and `sign_out()` only for
+database access and user identification.
 
 # BioDataScience 2020.0.9002
 
-- Add `MONGO_URL_SERVER` environmlent variable in `init()`.
+- Add `MONGO_URL_SERVER` environment variable in `init()`.
 
 # BioDataScience 2020.0.9001
 

R/BioDataScience-package.R

@@ -1,6 +1,7 @@
-#' Base configuration for BioDataScience
+#' Base configuration functions for BioDataScience
 #'
-#' Configure the R environment for the BioDartaScience course using [init()].
+#' Record user informations using [sign_in()] (or erase them using [sign_out()]).
+#' Access the MongoDB database for the course through [config()].
 #'
 #' @docType package
 #' @name BioDataScience-package

R/config.R

@@ -0,0 +1,45 @@
+#' Configure the R environment to access my MongoDB database, and provide or
+#' cache user information for reuse in learnr and shiny applications that are
+#' run locally.
+#'
+#' Environment variables are added with infos about my database and files
+#' are written in the user's directory with cache data.
+#'
+#' @param data Fingerprint data (user information) either in clear, or ciphered. In
+#' this case, the string must start with "fingerprint=".
+#' @param debug Do we issue debugging messages (by default, yes if the
+#' environment variables `LEARNDOWN_DEBUG` is not `0`).
+#'
+#' @return `TRUE` or `FALSE` invisibly, if it succeeds or not (with database
+#' access test).
+#' @export
+config <- function(debug = Sys.getenv("LEARNDOWN_DEBUG", 0) != 0) {
+  learndown::config(
+    url = "https://wp.sciviews.org/biodatascience_config",
+    password = .pass_conf,
+    cache = "~/.biodatascience_config",
+    debug = debug)
+}
+
+#' @rdname config
+#' @export
+sign_in <- function(data, debug = Sys.getenv("LEARNDOWN_DEBUG", 0) != 0) {
+  learndown::sign_in(data = data,
+    password = .pass_user, iv = .iv_user,
+    cache = "~/.biodatascience_user",
+    debug = debug)
+}
+
+#' @rdname config
+#' @export
+sign_out <- function(debug = Sys.getenv("LEARNDOWN_DEBUG", 0) != 0) {
+  learndown::sign_out(title = "D\u00e9senregistement",
+    message = "Confirmez-vous que vous voulez vous d\u00e9senregistrer (votre activit\u00e9 dans les tutoriels learnr et les applications Shiny ne sera plus enregistr\u00e9e) ?",
+    cache = "~/.biodatascience_user",
+    debug = debug)
+}
+
+# These items should better be hidden... but how?
+.pass_conf <- "$G8rLCuk4D7g!G%!kH@BzzvWKpa&LT6d"
+.pass_user <- "R*.px_#:4hVXZ#d#&,0fU52lEzc6.,Qv"
+.iv_user <- "1638369746832634"