R/get.installation.time.R

In groundhogR/groundhog: Version-Control for CRAN, GitHub, and GitLab Packages

# Get installation time for a given `pkg` and `vrs`. This is estimated from
# CRAN data about installation time on their build servers.
#
# Example:
# groundhog:::get.installation.time("magrittr", "1.5")
# 

get.installation.time <- function(pkg, vrs) {
  if (is.null(.pkgenv[["cran.times"]])) {
    load.cran.toc()
  }
  cran.times <- .pkgenv[["cran.times"]]

  dfk <- cran.times[cran.times$pkg_vrs == paste0(pkg, "_", vrs), ] # subset of package
  if (nrow(dfk) == 1) {
    return(dfk$installation.time) # lookup installation times
  } else {
    return(180)
  } # if not found, assume 3 minutes
}