add dl_pkgstats_data fn for #24

.github/workflows/test-coverage.yaml

@@ -47,5 +47,5 @@ jobs:
           needs: coverage
 
       - name: Test coverage
-        run: covr::codecov()
+        run: covr::codecov(function_exclusions='dl_pkgstats_data') 
         shell: Rscript {0}

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pkgstats
 Title: Metrics of R Packages
-Version: 0.0.4.005
+Version: 0.0.4.006
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))
@@ -20,7 +20,9 @@ Imports:
     sys,
     withr
 Suggests: 
+    curl,
     hms,
+    jsonlite,
     knitr,
     parallel,
     pkgbuild,

NAMESPACE

@@ -3,6 +3,7 @@
 export(ctags_install)
 export(ctags_test)
 export(desc_stats)
+export(dl_pkgstats_data)
 export(extract_tarball)
 export(loc_stats)
 export(pkgstats)

R/pkgstats-data-download.R

@@ -0,0 +1,56 @@
+#' Download latest version of 'pkgstats' data
+#'
+#' @param current If 'FALSE', download data for all CRAN packages ever released,
+#' otherwise (default) download data only for current CRAN packages.
+#' @param path Local path to download file.
+#' @param quiet If `FALSE`, display progress information on screen.
+#' @return (Invisibly) A `data.frame` of `pkgstats` results, one row for each
+#' package.
+#' @family archive
+#' @export
+dl_pkgstats_data <- function (current = TRUE,
+                              path = tempdir (),
+                              quiet = FALSE) {
+
+    requireNamespace ("curl")
+    requireNamespace ("jsonlite")
+
+    u <- paste0 (
+        "https://api.github.com/repos/",
+        "ropensci-review-tools/pkgstats/",
+        "releases/latest"
+    )
+
+    res <- curl::curl_fetch_memory (u)
+    hdrs <- curl::parse_headers (res$headers)
+    http_code <- as.integer (gsub (
+        "^http\\/[0-9]\\s?|\\s+$",
+        "",
+        hdrs [1],
+        ignore.case = TRUE
+    ))
+    if (http_code != 200L) {
+        stop (
+            "Call to GitHub failed with http error code [",
+            http_code, "]"
+        )
+    }
+
+    res <- jsonlite::fromJSON (rawToChar (res$content))
+    assets <- res$assets
+
+    i <- ifelse (
+        current,
+        grep ("current", assets$name, ignore.case = TRUE),
+        grep ("all", assets$name, ignore.case = TRUE)
+    )
+    dl_url <- assets$browser_download_url [i]
+    f <- file.path (path, basename (dl_url))
+
+    curl::curl_download (url = dl_url, destfile = f, quiet = quiet)
+    if (!quiet) {
+        message ("Downloaded to [", f, "]")
+    }
+
+    invisible (readRDS (f))
+}

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/pkgstats",
   "issueTracker": "https://github.com/ropensci-review-tools/pkgstats/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.0.4.005",
+  "version": "0.0.4.006",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",