Proposal for an alternative to achieve caching

[reitzig]

I realize that API styles are a matter of taste. FWIW, I think this is a nicer way of achieving caching functionality since it's harde to misuse:

makeVector <- function(x = numeric()) {
  m <- NULL

  set <- function(y) {
    x <<- y
    m <<- NULL
  }

  get <- function() x

  mean <- function() {
    if ( is.null(m) ) {
      # Note that mean(x) would not work -- then the function would
      # call itself!
      m <<- base::mean(x)
    }
    m
  }

  list(set = set, get = get, mean = mean)
}

^{versioned here}

[Neraz]

great