R/mem.R

In FedIRT: Federated Item Response Theory Models

Defines functions mem

Documented in mem

mem <- function(f) {
  memo <- new.env(parent = emptyenv())
  function(...) {
    key <- paste(list(...), collapse = " ,")
    if(!exists(as.character(key), envir = memo)) {
      memo[[as.character(key)]] <- f(...)
    }
    memo[[as.character(key)]]
  }
}

Try the FedIRT package in your browser