Expression caching

Author: Odomontois

cachematrix.R

@@ -4,19 +4,20 @@
 # mci <- makeCacheMatrix(m, func = function(m){message("calculating");solve(m)})
 # cacheSolve(mci)
 # cacheSolve(mci) # should not print message again, should insted inform about cache use 
-# mcs <- makeCacheMatrix(m, c(1,1))
+# mcs <- makeCacheMatrix(m, c(1,1), tol = .001)
 # cacheSolve(mcs)
 
 # Class for creating matrices with 
 # ability to cache results of operations
+# see CacheOps$help(getResult)
 CachedOps <- setRefClass("CachedOps",
 	fields = list(func = "function", cache = "ANY"),
 
 	methods = list(
-		initialize = function(...,func){
+		initialize = function(expr,...){
 			cache <<- NULL
       func <<- function(){
-        func(...)
+        expr
       }
 			callSuper()
 		},
@@ -31,15 +32,15 @@ Once it was calculated result is cached and returned in any consecutive call"
 		})
 	)
 
-makeCacheMatrix <- function(..., func = solve) {
+makeCacheMatrix <- function(expr,...) {
   # Creating new caching object
   # Args:
   #   func - function, result of calculation is need to cache
   #   ... - parameters for function calling
-	CachedOps$new(..., func = func)
+	CachedOps$new(expr,...)
 }
 
-cacheSolve <- function(x, ...) {
+cacheSolve <- function(x) {
   # Calculating result of function on matrix
   # once it was calculated result is cached
   # and returned in any consecutive call