Praise sentences from {gradethis} eliminated

Author: phgrosjean

NEWS.md

@@ -4,6 +4,8 @@
 
 - A09Lb_ttest_wmw version 2.1.1 : change weight by delta_weight in the instructions
 
+- Praise sentences in English are eliminated from result outputs of {gradethis}.
+
 ## Changes in version 2020.8.0
 
 - A10La_anova updated to version 2 (+ name changed in YAML also later on).

R/learnr.R

@@ -11,6 +11,13 @@ learnr_setup <- function(cap = "Code R",
 debug = Sys.getenv("LEARNDOWN_DEBUG", 0) != 0) {
   learndown::learndownLearnrSetup(config = BioDataScience::config(),
     sign_in = BioDataScience::sign_in(), cap = cap, debug = debug)
+  # Eliminate praise sentence in English before results
+  options(
+    # gradethis_glue_correct = "{ random_praise() } { .message } { .correct }",
+    gradethis_glue_correct = "{ .message } { .correct }",
+    # gradethis_glue_incorrect = "{ .message } { .incorrect } { random_encourage() }"
+    gradethis_glue_incorrect = "{ .message } { .incorrect }"
+  )
 }
 
 #' @rdname learnr_setup