Merge pull request #39 from ropensci-review-tools/code-change

add 'cm_metric_code_change_lines' for #11

Author: mpadge

DESCRIPTION

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

R/cm-metric-code-change.R

@@ -0,0 +1,14 @@
+cm_metric_code_change_lines <- function (path,
+                                         end_date = Sys.Date (),
+                                         exclude_whitespace = TRUE) {
+
+    log <- git_log_in_period (path, end_date)
+
+    changes <- sum (log$lines_added) + sum (log$lines_removed)
+    ws <- sum (log$whitespace_added) + sum (log$whitespace_removed)
+    if (!exclude_whitespace) {
+        ws <- 0L
+    }
+
+    return (changes - ws)
+}

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

tests/testthat/test-cm-metrics.R

@@ -145,3 +145,22 @@ test_that ("cm metrics num forks", {
     expect_equal (names (forks), c ("num_in_period", "num_total"))
     expect_true (forks [["num_total"]] > 0)
 })
+
+test_that ("cm metrics code change lines", {
+
+    path <- generate_test_pkg ()
+    x1 <- cm_metric_code_change_lines (path, end_date = end_date)
+    x2 <- cm_metric_code_change_lines (
+        path,
+        end_date = end_date,
+        exclude_whitespace = FALSE
+    )
+    fs::dir_delete (path)
+
+    for (i in c (x1, x2)) {
+        expect_type (i, "integer")
+        expect_length (i, 1L)
+        expect_true (i > 0)
+    }
+    expect_true (x2 > x1)
+})