R/md5.R

Defines functions .nlmixrMd5

.nlmixrMd5 <- function(obj) {
  if (!exists(".md5", obj$env)) {
    .cls <- class(obj)
    attr(.cls, ".foceiEnv") <- NULL
    .tmp <- list(
      .cls, obj$uif$ini, obj$fun.txt,
      obj$origControl
    )
    if (inherits(obj, "data.frame")) {
      .tmp <- c(.tmp, list(as.data.frame(obj)))
    }
    assign(".md5", digest::digest(.tmp), envir = obj$env)
  }
  return(obj$env$.md5)
}

Try the nlmixr package in your browser

Any scripts or data that you put into this service are public.

nlmixr documentation built on March 27, 2022, 5:05 p.m.