Merge pull request #60 from ropensci-review-tools/cran-current

cran-current-from-archive for #56

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pkgstats
 Title: Metrics of R Packages
-Version: 0.1.5.027
+Version: 0.1.5.028
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

NAMESPACE

@@ -7,6 +7,7 @@ export(dl_pkgstats_data)
 export(extract_tarball)
 export(loc_stats)
 export(pkgstats)
+export(pkgstats_cran_current_from_full)
 export(pkgstats_fn_names)
 export(pkgstats_fns_from_archive)
 export(pkgstats_from_archive)

R/cran-data-current.R

@@ -0,0 +1,23 @@
+#' Reduce `data.frame` of full CRAN archive data to current packages only.
+#'
+#' @inheritParams pkgstats_from_archive
+#' @family archive
+#' @export
+pkgstats_cran_current_from_full <- function (prev_results, results_file = NULL) {
+
+    prev_tarball <- paste0 (prev_results$package, "_", prev_results$version)
+
+    cran_pkgs <- tools::CRAN_package_db ()
+    cran_tarball <- paste0 (cran_pkgs$Package, "_", cran_pkgs$Version)
+
+    index <- which (prev_tarball %in% cran_tarball)
+    res <- prev_results [index, ]
+
+    if (!is.null (res) && !is.null (results_file)) {
+
+        results_file <- archive_results_file_name (results_file)
+        saveRDS (res, results_file)
+    }
+
+    return (res)
+}

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.1.5.027",
+  "version": "0.1.5.028",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",