added error for non letters

trinker · Jul 24, 2012 · 5b1367c · 5b1367c
1 parent ffc74ed
commit 5b1367c
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/hangman.R b/R/hangman.R
@@ -84,6 +84,9 @@ function() {
         if (y %in% c(right, wrong)) {
             stop(paste0("You've already guessed ", y))
         }
+        if (!y %in% letters) {
+        	stop(paste0(y, " is not a letter"))
+        }
         if (y %in% x) {
             right <<- c(right, y)
             win1 <<- sum(win1, sum(x %in% y))