R/storage.R

In inbo/abvanalysis: Analysis of the Common Breeding Bird Survey

#' store the `n2kModel` and retrieve its fingerprints
#' @return a data.frame with the fingerprint, status and status_fingerprint as
#' stored
#' @param model a `n2kModel` object
#' @inheritParams n2kanalysis::store_model
#' @export
#' @importFrom n2kanalysis get_file_fingerprint status get_status_fingerprint
#' read_model store_model
storage <- function(model, base, project, overwrite = FALSE, validate = FALSE) {
  store_model(
    model, base = base, project = project,
    overwrite = overwrite, validate = validate
  )
  data.frame(
    fingerprint = get_file_fingerprint(model),
    status = status(model),
    status_fingerprint = get_status_fingerprint(model),
    stringsAsFactors = FALSE
  )
}