R/downloads.R

In MangoTheCat/packageMetrics2: Collect Metrics about R Packages

#' @importFrom cranlogs cran_downloads

## The earliest day we have download count data for
cran_downloads_beginning <- "2012-01-01"

download_counts <- function(package, version = NULL) {
  "!DEBUG Querying download counts"

  type <- package_type(package)

  if (is.na(type)) {
    NA

  } else if (type == "base") {
    NA

  } else if (type == "CRAN") {
    dlc <- cran_downloads(
      package, from = cran_downloads_beginning,
      to = Sys.Date()
    )
    sum(dlc$count)

  } else if (type == "BioC") {
    NA

  } else {
    NA
  }
}