Merge pull request #95 from ropensci-review-tools/weeks

fix indexing of annual weeks in commit-freq metric

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.5.024
+Version: 0.1.5.026
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/cm-metric-cran-downloads.R

@@ -45,7 +45,13 @@ cran_downloads_internal <- function (pkg_name = NULL,
     req_url <- paste0 (daily_url, interval, "/", pkg_name)
 
     req <- httr2::request (req_url)
-    resp <- httr2::req_perform (req)
+    resp <- tryCatch (
+        httr2::req_perform (req),
+        error = function (e) NULL
+    )
+    if (is.null (resp)) {
+        return (data.frame (date = as.Date (character (0L)), downloads = integer (0L)))
+    }
     httr2::resp_check_status (resp)
 
     body <- httr2::resp_body_json (resp)

R/cm-metrics-commits.R

@@ -31,9 +31,10 @@ cm_metric_commit_freq <- function (path, end_date = Sys.Date ()) {
 
     week <- round (as.numeric (log$week), digits = 2)
     index <- seq (min (week), max (week), by = 0.01)
-    index_years <- index - floor (index)
-    index_in_52 <- which (index_years >= 0 & index_years <= 0.52)
-    index <- sprintf ("%.2f", index [index_in_52])
+    index_weeks <- round (index - floor (index), digits = 2)
+    # This is 53, because end of year is start of 53rd week:
+    index_in_53 <- which (index_weeks >= 0 & index_weeks <= 0.53)
+    index <- sprintf ("%.2f", index [index_in_53])
 
     commits <- rep (0, length (index))
     index_log <- match (log$week, index)

codemeta.json

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