inst/hooks/exported/parsable-R.R

In lorenzwalthert/precommit: Pre-Commit Hooks

#!/usr/bin/env Rscript
files <- commandArgs(trailing = TRUE)

out <- lapply(files, function(path) {
  is_rmd <- grepl("\\.[rR]md$", path)
  if (is_rmd) {
    path_ <- precommit::robust_purl(path)
  } else {
    path_ <- path
  }

  tryCatch(
    parse(path_),
    error = function(error) {
      cat(c("File ", path, " is not parsable. Full context:\n"))
      stop(conditionMessage(error), call. = FALSE)
    }
  )
})