♻️ Add Rmds to parsable-R hook

Author: pwildenhain

.pre-commit-hooks.yaml

@@ -33,7 +33,7 @@
     description: check if a .R file is parsable
     entry: Rscript inst/hooks/exported/parsable-R.R
     language: r
-    files: '\.[rR]$'
+    files: '\.[rR](md)?$'
     minimum_pre_commit_version: "2.13.0"
 -   id: readme-rmd-rendered
     name: readme-rmd-rendered

inst/hooks/exported/parsable-R.R

@@ -2,6 +2,17 @@
 files <- commandArgs(trailing = TRUE)
 
 out <- lapply(files, function(path) {
+  is_rmd <- grepl("\\.[rR]md$", path)
+  if (is_rmd) {
+    dir <- tempdir()
+    path <- knitr::purl(
+      input = path,
+      output = paste0(dir, "/file.R"),
+      quiet = TRUE,
+      documentation = FALSE
+    )
+  }
+
   tryCatch(
     parse(path),
     error = function(x) stop("File ", path, " is not parsable", call. = FALSE)