misc/spellcheck.R

In ncss-tech/aqp: Algorithms for Quantitative Pedology

#
# check spelling, after ignoring a set of package-specific allowed words
# 
# install.packages("spelling")

do_spellcheck <- function(allowed.words = read.csv("misc/aqp-spellcheck-allowed.csv")$x) {
  res <- spelling::spell_check_package()
  idx <- which(!res[,1] %in% allowed.words)
  if (length(idx) == 0) {
    message("No spelling errors found.")
    return(data.frame())
  }
  return(res[idx,])
}

res <- do_spellcheck()
res

# when done, add all remaining to "allowed list"
# allowed <- do_spellcheck(allowed.words = "")
# write.csv(as.data.frame(allowed)[,1], file = "misc/aqp-spellcheck-allowed.csv")