make a few modifications to @sagevann's proposed changes

mtjhrsk · Jul 16, 2014 · bac2327 · bac2327
1 parent 808d04e
commit bac2327
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/phrases.R b/R/phrases.R
@@ -3,14 +3,20 @@ praise <- function() {
   phrases <- c("You got it!",
                "Nice work!",
                "Keep up the great work!",
+               "You are doing so well!",
                "All that hark work is paying off!",
                "You nailed it! Good job!",
+               "You're the best!",
+               "You are amazing!",
                "Keep working like that and you'll get there!",
                "Perseverance, that's the answer.",
                "Great job!",
+               "You are quite good my friend!",
                "You're dedication is inspiring!",
                "You got it right!",
                "That's correct!",
+               "You are really on a roll!",
+               "Excellent job!",
                "All that practice is paying off!",
                "Excellent work!",
                "That's a job well done!",
@@ -31,8 +37,8 @@ tryAgain <- function() {
                "That's not the answer I was looking for, but try again.",
                "Not quite right, but keep trying.",
                "You're close...I can feel it! Try it again.",
-               "One more time, you can do it.",
+               "One more time. You can do it!",
                "Not quite, but you're learning! Try again.",
-               "Try again, getting it right on the first try is boring anyway.")
+               "Try again. Getting it right on the first try is boring anyway!")
   sample(phrases, 1)
 }