Merge pull request #89 from datacamp/random_praise

option to prepend praise, use roxygen 6.0.1

Author: machow

DESCRIPTION

@@ -13,7 +13,8 @@ Imports:
     markdown,
     R6,
     stringdist,
-    magrittr
+    magrittr,
+    praise
 Suggests:
     knitr,
     rmarkdown,
@@ -27,4 +28,4 @@ Authors@R: c(person("Andreas", "Alfons", role = "aut"),
     person("Vincent", "Vankrunkelsven", email = "vincent@datacamp.com", role = c("aut")))
 Author: Filip Schouwenaars <filip@datacamp.com>
 Maintainer: Filip Schouwenaars <filip@datacamp.com>
-RoxygenNote: 5.0.1
+RoxygenNote: 6.0.1

NAMESPACE

@@ -96,6 +96,7 @@ export(test_yaml_header)
 importFrom(R6,R6Class)
 importFrom(magrittr,"%>%")
 importFrom(markdown,markdownToHTML)
+importFrom(praise,praise)
 importFrom(stats,na.omit)
 importFrom(stringdist,stringdist)
 importFrom(utils,argsAnywhere)

R/success-msg.R

@@ -9,8 +9,14 @@
 #' inside \code{\link{test_mc}}, so an additional call of \code{success_msg}
 #' is not necessary.
 #' 
-#' @param msg The congratulatory message as a character string.
+#' @param msg The success message as a character string.
+#' @param praise Whether or not to prepend a message of praise from the \code{praise} package.
+#' 
 #' @export
-success_msg <- function(msg) {
+#' @importFrom praise praise
+success_msg <- function(msg, praise = FALSE) {
+  if (isTRUE(praise)) {
+    msg <- paste(praise::praise(), msg)
+  }
   get_rep()$set_success_msg(msg)
 }