add total_downloads col [skip ci]

Author: bschilder

R/r_repos_data.R

@@ -18,7 +18,13 @@
 #' @importFrom utils installed.packages available.packages
 #' @importFrom data.table merge.data.table
 #' @examples 
+#' #### Without downloads data ####
 #' pkgs <- r_repos_data()
+#' 
+#' #### With downloads data ####
+#' include <- pkgs[r_repo=="Bioc",][seq_len(10),]$package
+#' downloads <- r_repos_data(include=include,
+#'                           add_downloads = TRUE)
 r_repos_data <- function(include=NULL,
                          add_downloads=FALSE,
                          add_descriptions=FALSE,

R/r_repos_data_cast.R

@@ -2,6 +2,9 @@ r_repos_data_cast <- function(pkgs,
                               verbose=TRUE){
     dummy <- NULL;
 
+    #### Record r_repo vars ####
+    r_repo_vars <- unique(pkgs$r_repo)
+    #### Process ####
     if("downloads" %in% names(pkgs)){
         messager(
             "Casting data: numbers represent downloads in each r_repo.",
@@ -10,11 +13,12 @@ r_repos_data_cast <- function(pkgs,
             pkgs, 
             formula = "package + installed ~ r_repo",
             value.var = "downloads")
+        pkgs$total_downloads <- rowSums(pkgs[,r_repo_vars,with=FALSE],
+                                        na.rm = TRUE)
     } else { 
         messager(
             "Casting data: present=TRUE and absent=FALSE in each r_repo.",
             v=verbose)
-        r_repo_vars <- unique(pkgs$r_repo)
         pkgs[,dummy:=TRUE]
         pkgs <- data.table::dcast.data.table(
             pkgs,