Switch for {learndown} to {learnitdown} and start 2021 series

Author: phgrosjean

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: BioDataScience3
-Version: 2020.6.0
+Version: 2021.0.0
 Title: A Series of Learnr Documents for Biological Data Science 3
 Description: Interactive documents using learnr for studying biological data science (second course).
 Authors@R: c(
@@ -9,7 +9,7 @@ Authors@R: c(
   email = "guyliann.engels@umons.ac.be"))
 Maintainer: Philippe Grosjean <phgrosjean@sciviews.org>
 Depends: R (>= 3.5.0)
-Imports: learndown, BioDataScience, shiny, miniUI
+Imports: learnitdown, BioDataScience, shiny, miniUI
 Suggests: SciViews, ggplot2, ggpubr, data.io, flow, chart, covr, knitr, testthat, gradethis
 License: MIT + file LICENSE
 Encoding: UTF-8

NAMESPACE

@@ -9,9 +9,9 @@ export(update_pkg)
 importFrom(BioDataScience,config)
 importFrom(BioDataScience,sign_in)
 importFrom(BioDataScience,sign_out)
-importFrom(learndown,learndownLearnrBanner)
-importFrom(learndown,learndownLearnrServer)
-importFrom(learndown,run)
+importFrom(learnitdown,learnitdownLearnrBanner)
+importFrom(learnitdown,learnitdownLearnrServer)
+importFrom(learnitdown,run)
 importFrom(miniUI,gadgetTitleBar)
 importFrom(miniUI,miniContentPanel)
 importFrom(miniUI,miniPage)

NEWS.md

@@ -1,39 +1,45 @@
 # BioDataScience3 News
 
+## Change in version 2021.0.0
+
+-   Start of 2021 series.
+
+-   Switch from {learndown} to {learnitdown}.
+
 ## Change in version 2020.6.0
 
-- "Tutorial" C99La_avis added to get a quick feedback from the students.
+-   "Tutorial" C99La_avis added to get a quick feedback from the students.
 
-- Praise sentences in English are eliminated from result outputs of {gradethis}.
+-   Praise sentences in English are eliminated from result outputs of {gradethis}.
 
 ## Changes in version 2020.5.2
 
-- devel/ directory for learnrs and Shiny apps in development
+-   devel/ directory for learnrs and Shiny apps in development
 
 ## Changes in version 2020.5.1
 
-- Changes in C06La_map (version 1.1.0): `qtm(...)` is replaced by `tm_shape(...) + tm_borders()` in the exercises.
+-   Changes in C06La_map (version 1.1.0): `qtm(...)` is replaced by `tm_shape(...) + tm_borders()` in the exercises.
 
 ## Changes in version 2020.5.0
 
-- New tutorial C06La_map
+-   New tutorial C06La_map
 
 ## Changes in version 2020.3.0
 
-- New tutorials C04La_stat_slide, C04Lb_ts_create, C04Lc_ts_manip.
+-   New tutorials C04La_stat_slide, C04Lb_ts_create, C04Lc_ts_manip.
 
 ## Changes in version 2020.3.0
 
-- New tutorial C02La_cv.
+-   New tutorial C02La_cv.
 
 ## Changes in version 2020.2.1
 
-- New tutorial C01Lb_lda.
+-   New tutorial C01Lb_lda.
 
 ## Changes in version 2020.1.0
 
-- New tutorial C01La_confusion.
+-   New tutorial C01La_confusion.
 
 ## Changes in version 2020.0.0
 
-- First version, just one example learnr and one simple Shiny app for now.
+-   First version, just one example learnr and one simple Shiny app for now.

R/BioDataScience3-package.R

@@ -5,7 +5,7 @@
 #' @docType package
 #' @name BioDataScience3-package
 #'
-#' @importFrom learndown run learndownLearnrBanner learndownLearnrServer
+#' @importFrom learnitdown run learnitdownLearnrBanner learnitdownLearnrServer
 #' @importFrom BioDataScience config sign_in sign_out
 #' @importFrom shiny dialogViewer observeEvent selectInput stopApp runGadget
 #' @importFrom miniUI gadgetTitleBar miniContentPanel miniPage miniTitleBarButton miniTitleBarCancelButton

R/addins.R

@@ -47,7 +47,7 @@ run_addin <- function() {
   }
 
   # Update both BioDataScience & BioDataScience3
-  learndown::update_pkg("BioDataScience",
+  learnitdown::update_pkg("BioDataScience",
     github_repos = "BioDataScience-course/BioDataScience")
   update_pkg()
 

R/learnr.R

@@ -1,15 +1,15 @@
-#' Prepare a learnr tutorial for learndown recording
+#' Prepare a learnr tutorial for learnitdown recording
 #'
-#' These functions add recording functionalities through the learndown approach.
+#' These functions add recording features through the learnitdown approach.
 
 #' @param cap The caption of learnr R code widgets.
 #' @param debug Do we issue debugging messages (by default, yes if the
-#' environment variables `LEARNDOWN_DEBUG` is not `0`).
+#' environment variables `LEARNITDOWN_DEBUG` is not `0`).
 #'
 #' @export
 learnr_setup <- function(cap = "Code R",
-debug = Sys.getenv("LEARNDOWN_DEBUG", 0) != 0) {
-  learndown::learndownLearnrSetup(config = BioDataScience::config(),
+debug = Sys.getenv("LEARNITDOWN_DEBUG", 0) != 0) {
+  learnitdown::learnitdownLearnrSetup(config = BioDataScience::config(),
     sign_in = BioDataScience::sign_in(), cap = cap, debug = debug)
   # Eliminate praise sentence in English before results
   options(
@@ -25,11 +25,11 @@ debug = Sys.getenv("LEARNDOWN_DEBUG", 0) != 0) {
 #' @param simple Do we use a simple banner without title or not?
 learnr_banner <- function(simple = FALSE) {
   if (isTRUE(simple)) {
-    learndownLearnrBanner(
+    learnitdownLearnrBanner(
       msg.nologin = 'Utilisateur anonyme, aucun enregistrement !',
       msg.login = 'Enregistrement actif pour ')
   } else {
-    learndownLearnrBanner(
+    learnitdownLearnrBanner(
       title = "Science des donn\u00e9es biologiques\ III",
       text = "R\u00e9alis\u00e9 par le service d'\u00c9cologie num\u00e9rique, Universit\u00e9 de Mons (Belgique)",
       image = "https://wp.sciviews.org/BioDataScience-96.png",
@@ -45,4 +45,4 @@ learnr_banner <- function(simple = FALSE) {
 #' @param output The Shiny output.
 #' @param session The Shiny session.
 learnr_server <- function(input, output, session)
-  learndownLearnrServer(input, output, session)
+  learnitdownLearnrServer(input, output, session)

R/run.R

@@ -34,7 +34,7 @@
 run <- function(tutorial, ..., update = ask, ask = interactive()) {
   if (missing(tutorial))
     tutorial <- NULL
-  learndown::run(tutorial = tutorial, package = "BioDataScience3",
+  learnitdown::run(tutorial = tutorial, package = "BioDataScience3",
     github_repos = "BioDataScience-course/BioDataScience3",
     ..., update = update, ask = ask)
 }
@@ -45,13 +45,13 @@ run_app <- function(app, ..., update = ask, ask = interactive(),
   in.job = TRUE) {
   if (missing(app))
     app <- NULL
-  learndown::run_app(app = app, package = "BioDataScience3",
+  learnitdown::run_app(app = app, package = "BioDataScience3",
     github_repos = "BioDataScience-course/BioDataScience3",
     ..., update = update, ask = ask, in.job = in.job)
 }
 
 #' @rdname run
 #' @export
 update_pkg <- function()
-  learndown::update_pkg(package = "BioDataScience3",
+  learnitdown::update_pkg(package = "BioDataScience3",
     github_repos = "BioDataScience-course/BioDataScience3")

inst/shiny/C00Sa_histogram/app.R

@@ -1,17 +1,17 @@
 # Histogram with variable classes
-learndown::learndownShinyVersion("1.0.0")
+learnitdown::learnitdownShinyVersion("1.0.0")
 conf <- BioDataScience::config()
 
 library(shiny)
-library(learndown)
+library(learnitdown)
 library(BioDataScience3)
 library(ggplot2)
 library(chart)
 
 geyser <- data.io::read("geyser", package = "MASS", lang = "fr")
 
 ui <- fluidPage(
-  learndownShiny("Choix des classes pour un histogramme"),
+  learnitdownShiny("Choix des classes pour un histogramme"),
 
   sidebarPanel(
     sliderInput(inputId = "bins", label = "Nombre de classes :",