Praise sentences from {gradethis} eliminated

Author: phgrosjean

NEWS.md

@@ -4,6 +4,8 @@
 
 - New tutorial B07La_pca in version 2.
 
+- Praise sentences in English are eliminated from result outputs of {gradethis}.
+
 ## Changes in version 2020.7.0
 
 - Tutorial B06Lc_som migrated to version 2.

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