R/sha1.R

In inbo/n2kupdate: Auxiliary Functions to Update the n2kresult Database

#' @importFrom digest sha1
#' @export sha1
digest::sha1

#' @importFrom digest sha1
#' @importFrom dplyr %>% arrange
#' @export
#' @method sha1 n2kAnalysisVersion
sha1.n2kAnalysisVersion <- function(x, digits = 14L, zapsmall = 7L, ...) {
  av <- x@AnalysisVersion
  rp <- x@RPackage
  avrp <- x@AnalysisVersionRPackage

  av <- character_df(av)
  rp <- character_df(rp)
  avrp <- character_df(avrp)

  z <- list(
    analysis_version = av %>%
      arrange(.data$Fingerprint),
    r_package = rp %>%
      arrange(.data$Fingerprint),
    analysis_version_r_package = avrp %>%
      arrange(.data$AnalysisVersion, .data$RPackage)
  )
  attr(z, "digest::sha1") <- list(
    class = class(x),
    digits = as.integer(digits),
    zapsmall = as.integer(zapsmall),
    ...
  )
  sha1(z, digits = digits, zapsmall = zapsmall, ...)
}