inst/hooks/exported/spell-check.R

In precommit: Pre-Commit Hooks

#!/usr/bin/env Rscript

"Spell check for files
Usage:
  spell-check [--lang=<language>] <files>...

Options:
  --lang=<language> Passed to `spelling::spell_check_files()` [default: en_US]

" -> doc

arguments <- docopt::docopt(doc)
path_wordlist <- file.path("inst", "WORDLIST")
files <- arguments$files
if (file.exists(path_wordlist)) {
  ignore <- readLines(path_wordlist, encoding = "UTF-8")
  action <- "update"
} else {
  if (!dir.exists(dirname(path_wordlist))) {
    dir.create(dirname(path_wordlist))
  }
  file.create(path_wordlist)
  ignore <- character()
  action <- "create"
}


spelling_errors <- spelling::spell_check_files(
  files,
  ignore = ignore,
  lang = arguments$lang
)

if (nrow(spelling_errors) > 0) {
  cat("The following spelling errors were found:\n")
  print(spelling_errors)
  ignore_df <- data.frame(
    original = unique(c(ignore, spelling_errors$word))
  )
  ignore_df$lower <- tolower(ignore_df$original)
  ignore_df <- ignore_df[order(ignore_df$lower), ]
  ignore <- ignore_df$original[ignore_df$lower != ""] # drop blanks if any
  writeLines(ignore, path_wordlist)
  cat(
    "All spelling errors found were copied to inst/WORDLIST assuming they were",
    "not spelling errors and will be ignored in the future. Please ",
    "review the above list and for each word that is an actual typo:\n",
    "- fix it in the source code.\n",
    "- remove it again manually from inst/WORDLIST to make sure it's not\n",
    "  ignored in the future.\n",
    "Then, try committing again.\n"
  )
  stop("Spell check failed", call. = FALSE)
} else {
  ignore <- ignore[ignore != ""] # drop blanks if any
  writeLines(ignore, path_wordlist)
}