Praise sentences from {gradethis} eliminated

Author: phgrosjean

NEWS.md

@@ -4,6 +4,8 @@
 
 - "Tutorial" C99La_avis added to get a quick feedback from the students.
 
+- 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

R/learnr.R

@@ -8,9 +8,16 @@
 #'
 #' @export
 learnr_setup <- function(cap = "Code R",
-  debug = Sys.getenv("LEARNDOWN_DEBUG", 0) != 0) {
+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