jabenninghoff · jabenninghoff · Jun 5, 2024 · Jun 5, 2024 · Jun 5, 2024 · Jun 5, 2024
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: rdev
 Title: R Development Tools
-Version: 1.10.11
+Version: 1.11.0
 Authors@R:
     person("John", "Benninghoff", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-6230-4742"))
@@ -13,6 +13,7 @@ BugReports: https://github.com/jabenninghoff/rdev/issues
 Imports:
     checkmate,
     cli,
+    cranlogs,
     curl,
     desc,
     devtools,

diff --git a/NAMESPACE b/NAMESPACE
@@ -17,6 +17,7 @@ export(merge_release)
 export(missing_deps)
 export(new_branch)
 export(open_files)
+export(package_downloads)
 export(rmd_metadata)
 export(setup_analysis)
 export(setup_rdev)

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# rdev 1.11.0
+
+* Added function `package_downloads()`: A wrapper for `cranlogs::cran_downloads()` that summarizes the number of package downloads from the RStudio CRAN mirror
+
 # rdev 1.10.11
 
 * Minor updates

diff --git a/R/utils.R b/R/utils.R
@@ -216,3 +216,29 @@
   writeLines(paste0("Opening files: ", toString(files)))
   invisible(vapply(files, rstudioapi::navigateToFile, character(1)))
 }
+
+#' Summarize package downloads
+#'
+#' A wrapper for [cranlogs::cran_downloads()] that summarizes the number of package downloads from
+#'   the RStudio CRAN mirror.
+#'
+#' By default, the summary is for the last month.
+#'
+#' @param packages A character vector of the packages to query.
+#' @param when The period to summarize, one of `last-day`, `last-week` or `last-month`
+#'   (the default).
+#'
+#' @return A data frame containing the total number of downloads by package for the specified
+#'   period, sorted by popularity.
+#' @export
+package_downloads <- function(packages, when = "last-month") {
+  checkmate::assert_character(packages, min.chars = 1)
+  if ("R" %in% packages) {
+    stop("Querying downloads of R is not supported!")
+  }
+
+  df <- cranlogs::cran_downloads(packages = packages, when = when) |>
+    stats::aggregate(by = count ~ package, FUN = sum)
+
+  df[order(df$count, decreasing = TRUE), ]
+}
diff --git a/README.md b/README.md
@@ -229,10 +229,10 @@ ci()
 #> * creating vignettes ... OK
 #> * checking for LF line-endings in source and make files and shell scripts
 #> * checking for empty or unneeded directories
-#> * building ‘rdev_1.10.11.tar.gz’
+#> * building ‘rdev_1.11.0.tar.gz’
 #> 
 #> ── R CMD check ─────────────────────────────────────────────────────────────────
-#> * using log directory ‘/private/var/folders/vn/cw5f9gws42v9m8mdsds_zbl00000gp/T/RtmpbGt8X8/filef8553618c29d/rdev.Rcheck’
+#> * using log directory ‘/private/var/folders/vn/cw5f9gws42v9m8mdsds_zbl00000gp/T/Rtmpl0ug8f/filefaae5bd77b88/rdev.Rcheck’
 #> * using R version 4.4.0 (2024-04-24)
 #> * using platform: aarch64-apple-darwin20
 #> * R was compiled by
@@ -242,7 +242,7 @@ ci()
 #> * using session charset: UTF-8
 #> * using option ‘--no-manual’
 #> * checking for file ‘rdev/DESCRIPTION’ ... OK
-#> * this is package ‘rdev’ version ‘1.10.11’
+#> * this is package ‘rdev’ version ‘1.11.0’
 #> * package encoding: UTF-8
 #> * checking package namespace information ... OK
 #> * checking package dependencies ... OK
@@ -297,8 +297,8 @@ ci()
 #> * DONE
 #> 
 #> Status: OK
-#> ── R CMD check results ─────────────────────────────────────── rdev 1.10.11 ────
-#> Duration: 33.1s
+#> ── R CMD check results ──────────────────────────────────────── rdev 1.11.0 ────
+#> Duration: 31.7s
 #> 
 #> 0 errors ✔ | 0 warnings ✔ | 0 notes ✔
 ```
diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -58,6 +58,7 @@ reference:
     - extra_deps
     - urlchecker-reexports
     - html_url_check
+    - package_downloads
   - title: rdev Package
     desc: >
       rdev package documentation

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/LICENSE.html b/docs/LICENSE.html
diff --git a/docs/TODO.html b/docs/TODO.html
diff --git a/docs/articles/analysis-package-layout.html b/docs/articles/analysis-package-layout.html
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/articles/rdev.html b/docs/articles/rdev.html
diff --git a/docs/articles/style-guide.html b/docs/articles/style-guide.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -5,7 +5,7 @@ articles:
   analysis-package-layout: analysis-package-layout.html
   rdev: rdev.html
   style-guide: style-guide.html
-last_built: 2024-05-23T19:56Z
+last_built: 2024-06-05T21:54Z
 urls:
   reference: https://jabenninghoff.github.io/rdev/reference
   article: https://jabenninghoff.github.io/rdev/articles

diff --git a/docs/reference/build_analysis_site.html b/docs/reference/build_analysis_site.html
diff --git a/docs/reference/build_quarto_site.html b/docs/reference/build_quarto_site.html
diff --git a/docs/reference/build_rdev_site.html b/docs/reference/build_rdev_site.html
diff --git a/docs/reference/check_renv.html b/docs/reference/check_renv.html
diff --git a/docs/reference/ci.html b/docs/reference/ci.html
diff --git a/docs/reference/create_github_repo.html b/docs/reference/create_github_repo.html
diff --git a/docs/reference/deps_check.html b/docs/reference/deps_check.html
diff --git a/docs/reference/get_license.html b/docs/reference/get_license.html
diff --git a/docs/reference/get_release.html b/docs/reference/get_release.html
diff --git a/docs/reference/html_url_check.html b/docs/reference/html_url_check.html