add system requirement git because of readme rendered hook

Author: lorenzwalthert

DESCRIPTION

@@ -12,12 +12,12 @@ License: GPL-3
 URL: https://lorenzwalthert.github.io/precommit/,
     https://github.com/lorenzwalthert/precommit
 Imports:
-    R.cache,
     cli,
     fs,
     here,
     magrittr,
     purrr,
+    R.cache,
     rlang,
     rprojroot,
     rstudioapi,
@@ -49,3 +49,4 @@ Roxygen: list(markdown = TRUE, roclets = c( "rd", "namespace", "collate",
     warning("Please install r-lib/pkgapi to make sure the file API is kept
     up to date"); NULL} ) )
 RoxygenNote: 7.1.2
+SystemRequirements: git

R/utils.R

@@ -99,3 +99,7 @@ rev_read <- function(path = ".pre-commit-config.yaml", repo = hooks_repo) {
 rev_as_pkg_version <- function(rev) {
   package_version(gsub("^v", "", rev))
 }
+
+has_git <- function() {
+  nzchar(Sys.which("git"))
+}

inst/WORDLIST

@@ -188,6 +188,7 @@ styler
 sublicenses
 Sublicensing
 Sys
+SystemRequirements
 tcltk
 tempfile
 testthat

inst/hooks/exported/readme-rmd-rendered.R

@@ -3,7 +3,9 @@ if (file.exists("README.Rmd") & file.exists("README.md")) {
   if (file.info("README.md")$mtime < file.info("README.Rmd")$mtime) {
     rlang::abort("README.md is out of date; please re-knit README.Rmd.")
   }
-
+  if (!nzchar(Sys.which("git"))) {
+    rlang::abort("git not found on `$PATH`, hook can't be ran.")
+  }
   file_names_staged <- system2(
     "git", c("diff --cached --name-only"),
     stdout = TRUE

tests/testthat/test-hooks.R

@@ -304,84 +304,68 @@ run_test("roxygenize",
 
 ### . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
 ### readme-rmd-rendered                                                     ####
-run_test("readme-rmd-rendered",
-  file_name = c("README.Rmd", "README.md"),
-  suffix = "",
-  error_msg = NULL,
-  msg = NULL,
-  file_transformer = function(files) {
-    if (length(files) > 1) {
-      # transformer is called once on all files and once per file
-      content_2 <- readLines(files[2])
-      Sys.sleep(2)
-      writeLines(content_2, files[2])
-      git_init()
-      git2r::add(path = files)
+if (!has_git()) {
+  run_test("readme-rmd-rendered",
+    file_name = c("README.md", "README.Rmd"),
+    suffix = "",
+    error_msg = "out of date",
+    msg = NULL,
+    file_transformer = function(files) {
+      if (length(files) > 1) {
+        # transformer is called once on all files and once per file
+        content_2 <- readLines(files[2])
+        Sys.sleep(2)
+        writeLines(content_2, files[2])
+        git_init()
+        git2r::add(path = files)
+      }
+      files
     }
-    files
-  }
-)
+  )
 
-run_test("readme-rmd-rendered",
-  file_name = c("README.md", "README.Rmd"),
-  suffix = "",
-  error_msg = "out of date",
-  msg = NULL,
-  file_transformer = function(files) {
-    if (length(files) > 1) {
-      # transformer is called once on all files and once per file
-      content_2 <- readLines(files[2])
-      Sys.sleep(2)
-      writeLines(content_2, files[2])
-      git_init()
-      git2r::add(path = files)
-    }
-    files
-  }
-)
 
+  # only one file staged
+  run_test("readme-rmd-rendered",
+    file_name = c("README.Rmd", "README.md"),
+    suffix = "",
+    error_msg = "should be both staged",
+    msg = NULL,
+    file_transformer = function(files) {
+      if (length(files) > 1) {
+        # transformer is called once on all files and once per file
+        content_2 <- readLines(files[2])
+        Sys.sleep(2)
+        writeLines(content_2, files[2])
+        git_init()
+        git2r::add(path = files[1])
+      }
+      files
+    }
+  )
 
-# only one file staged
-run_test("readme-rmd-rendered",
-  file_name = c("README.Rmd", "README.md"),
-  suffix = "",
-  error_msg = "should be both staged",
-  msg = NULL,
-  file_transformer = function(files) {
-    if (length(files) > 1) {
-      # transformer is called once on all files and once per file
-      content_2 <- readLines(files[2])
-      Sys.sleep(2)
-      writeLines(content_2, files[2])
+  # only has md
+  run_test("readme-rmd-rendered",
+    file_name = "README.md",
+    suffix = "",
+    error_msg = NULL,
+    msg = NULL,
+    file_transformer = function(files) {
       git_init()
       git2r::add(path = files[1])
+      files
     }
-    files
-  }
-)
-
-# only has md
-run_test("readme-rmd-rendered",
-  file_name = "README.md",
-  suffix = "",
-  error_msg = NULL,
-  msg = NULL,
-  file_transformer = function(files) {
-    git_init()
-    git2r::add(path = files[1])
-    files
-  }
-)
+  )
 
-# only has Rmd
-run_test("readme-rmd-rendered",
-  file_name = "README.Rmd",
-  suffix = "",
-  error_msg = NULL,
-  msg = NULL,
-  file_transformer = function(files) {
-    git_init()
-    git2r::add(path = files[1])
-    files
-  }
-)
+  # only has Rmd
+  run_test("readme-rmd-rendered",
+    file_name = "README.Rmd",
+    suffix = "",
+    error_msg = NULL,
+    msg = NULL,
+    file_transformer = function(files) {
+      git_init()
+      git2r::add(path = files[1])
+      files
+    }
+  )
+}