Tweaked reponse messages

ScottJWalter · ScottJWalter · commit 507245db984c · 2015-07-20T14:00:06.000-05:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -61,6 +61,7 @@ cacheSolve <- function(theMatrix, ...) {
     
     # If cache (the returned inverted matrix) isn't null, return it ...
     if (!is.null(theInverse)) {
+        message("Retrieving from cache")
         return(theInverse)
     }
     

Original file line number	Diff line number	Diff line change
`@@ -61,6 +61,7 @@ cacheSolve <- function(theMatrix, ...) {`
`61`	`61`
`62`	`62`	`# If cache (the returned inverted matrix) isn't null, return it ...`
`63`	`63`	`if (!is.null(theInverse)) {`
	`64`	`+ message("Retrieving from cache")`
`64`	`65`	`return(theInverse)`
`65`	`66`	`}`
`66`	`67`