Merge pull request #516 from kcphila/revised-add-spaces

Revised add spaces

Author: lorenzwalthert

API

@@ -11,6 +11,7 @@ open_config(root = here::here())
 open_wordlist(root = here::here())
 path_pre_commit_exec(check_if_exists = TRUE)
 path_precommit_exec(check_if_exists = TRUE)
+precommit_docopt(doc, args = commandArgs(trailingOnly = TRUE), ...)
 robust_purl(path)
 roxygen_assert_additional_dependencies()
 roxygenize_with_cache(key, dirs)

NAMESPACE

@@ -9,6 +9,7 @@ export(open_config)
 export(open_wordlist)
 export(path_pre_commit_exec)
 export(path_precommit_exec)
+export(precommit_docopt)
 export(robust_purl)
 export(roxygen_assert_additional_dependencies)
 export(roxygenize_with_cache)

R/testing.R

@@ -146,6 +146,11 @@ hook_state_create <- function(tempdir,
   withr::local_dir(tempdir)
   files <- fs::path_rel(path_candidate_temp, tempdir)
   # https://stat.ethz.ch/pipermail/r-devel/2018-February/075507.html
+
+  # quote any individual filenames with spaces so the shell identifies them
+  # each as a single term
+  files <- shQuote(files)
+
   system2(paste0(Sys.getenv("R_HOME"), "/bin/Rscript"),
     args = as.character(c(path_executable, cmd_args, files)),
     stderr = path_stderr, stdout = path_stdout, env = env

R/utils.R

@@ -83,6 +83,27 @@ git_init <- function(path = ".") {
   )
 }
 
+#' Provide a singular interface for hook calls to docopt
+#'
+#' docopt provides different processing for a single string
+#' than an array/vector. As `"string"`` and `c("string")`
+#' are semantically equivalent in R, this can create problems
+#' when a single parameter is provided. Thus, this function
+#' wraps docopt to ensure that the args will always be
+#' interpreted as a vector.
+#'
+#' This function is only exported for use in hook scripts, but it's not intended
+#' to be called by the end-user directly.
+#' @param doc `character` vector with command line specification.
+#' @param args `character` vector of command line arguments.
+#'   Defaults to `commandArgs(trailingOnly=TRUE)`.
+#' @param ... Additional parameters passed to `docopt`.
+#' @family hook script helpers
+#' @keywords internal
+#' @export
+precommit_docopt <- function(doc, args = commandArgs(trailingOnly = TRUE), ...) {
+  docopt::docopt(doc, c(args, ""), ...)
+}
 
 #' Read the refs corresponding to a hooks repo
 #' @keywords internal

inst/hooks/exported/codemeta-description-updated.R

@@ -13,7 +13,7 @@ Options:
 " -> doc
 
 
-arguments <- docopt::docopt(doc)
+arguments <- precommit::precommit_docopt(doc)
 setwd(arguments$root)
 
 # adapted from https://github.com/lorenzwalthert/precommit/blob/f4413cfe6282c84f7176160d06e1560860c8bd3d/inst/hooks/exported/readme-rmd-rendered

inst/hooks/exported/deps-in-desc.R

@@ -17,7 +17,7 @@ pre_installed <- c(
   "survival", "tcltk", "tools", "utils"
 )
 
-arguments <- docopt::docopt(doc)
+arguments <- precommit::precommit_docopt(doc)
 arguments$files <- normalizePath(arguments$files) # because working directory changes to root
 setwd(normalizePath(arguments$root))
 deps_in_desc <- function(file, arguments) {

inst/hooks/exported/lintr.R

@@ -10,7 +10,7 @@ Options:
                Otherwise, lints will never be shown to the user.
 " -> doc
 
-arguments <- docopt::docopt(doc)
+arguments <- precommit::precommit_docopt(doc)
 
 lintr_staged <- grepl(
   "modified:.*\\.lintr", system2("git", "status", stdout = TRUE)

inst/hooks/exported/roxygenize.R

@@ -21,7 +21,7 @@ Options:
   --root=<root_>  Path relative to the git root that contains the R package root [default: .].
 
 " -> doc
-arguments <- docopt::docopt(doc)
+arguments <- precommit::precommit_docopt(doc)
 arguments$files <- normalizePath(arguments$files) # because working directory changes to root
 setwd(arguments$root)
 

inst/hooks/exported/spell-check.R

@@ -9,7 +9,7 @@ Options:
 
 " -> doc
 
-arguments <- docopt::docopt(doc)
+arguments <- precommit::precommit_docopt(doc)
 path_wordlist <- file.path("inst", "WORDLIST")
 files <- arguments$files
 if (file.exists(path_wordlist)) {

inst/hooks/exported/style-files.R

@@ -38,7 +38,7 @@ if (length(keys) > 0) {
   doc <- gsub("<files>...", insert, paste0(doc, paste(key_value_pairs, collapse = "\n")))
 }
 
-arguments <- docopt::docopt(doc, args)
+arguments <- precommit::precommit_docopt(doc, args)
 if (packageVersion("styler") < "1.3.2") {
   stop(
     "Your styler version is outdated. ",