Use set_alt to in set instead of a 2nd assignment

wcooley · wcooley · commit 11a3ba55bb82 · 2014-05-24T23:09:01.000-07:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -20,7 +20,7 @@ makeCacheMatrix <- function(x = matrix()) {
         # If altx is already set (non-NULL), then we're invalidating the cache;
         # otherwise we're just initializing it.
         if (!is.null(altx)) message("invalidating cache")
-        altx <<- NULL
+        set_alt(NULL)
     }
 
     # getter for `x` in the parent scope
@@ -35,7 +35,6 @@ makeCacheMatrix <- function(x = matrix()) {
     list(set=set, get=get, set_alt=set_alt, get_alt=get_alt)
 }
 
-
 # The `cacheSolve` function returns the cached inverse of the matrix inside the
 # scope accessed by the functions in `x`, solving and caching the inverse if it
 # does not already exist.

Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,7 @@ makeCacheMatrix <- function(x = matrix()) {`
`20`	`20`	`# If altx is already set (non-NULL), then we're invalidating the cache;`
`21`	`21`	`# otherwise we're just initializing it.`
`22`	`22`	`if (!is.null(altx)) message("invalidating cache")`
`23`		`- altx <<- NULL`
	`23`	`+ set_alt(NULL)`
`24`	`24`	`}`
`25`	`25`
`26`	`26`	# getter for `x` in the parent scope
`@@ -35,7 +35,6 @@ makeCacheMatrix <- function(x = matrix()) {`
`35`	`35`	`list(set=set, get=get, set_alt=set_alt, get_alt=get_alt)`
`36`	`36`	`}`
`37`	`37`
`38`		`-`
`39`	`38`	# The `cacheSolve` function returns the cached inverse of the matrix inside the
`40`	`39`	# scope accessed by the functions in `x`, solving and caching the inverse if it
`41`	`40`	`# does not already exist.`