Fix resetting cached data if the original matrix is changed...

Jonas Friedemann Grote · Jonas Friedemann Grote · commit d9c2fc33cd34 · 2014-06-24T11:18:57.000+02:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -4,7 +4,7 @@ makeCacheMatrix <- function(x = matrix()) {
     inverse <- NULL
     set <- function(y) {
         x <<- y
-        m <<- NULL
+        inverse <<- NULL
     }
     get <- function() x
     setinverse <- function(inverse) inverse <<- inverse

Original file line number	Diff line number	Diff line change
`@@ -4,7 +4,7 @@ makeCacheMatrix <- function(x = matrix()) {`
`4`	`4`	`inverse <- NULL`
`5`	`5`	`set <- function(y) {`
`6`	`6`	`x <<- y`
`7`		`- m <<- NULL`
	`7`	`+ inverse <<- NULL`
`8`	`8`	`}`
`9`	`9`	`get <- function() x`
`10`	`10`	`setinverse <- function(inverse) inverse <<- inverse`