Support custom wordlist via SPELLING_WORDLIST variable

Closes #80
ropensci · Mar 4, 2024 · bfd9241 · bfd9241
1 parent 5087c4d
commit bfd9241
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/R/wordlist.R b/R/wordlist.R
@@ -53,11 +53,18 @@ update_wordlist <- function(pkg = ".", vignettes = TRUE, confirm = TRUE){
 get_wordlist <- function(pkg = "."){
  pkg <- as_package(pkg)
  wordfile <- get_wordfile(pkg$path)
- out <- if(file.exists(wordfile))
- unlist(strsplit(readLines(wordfile, warn = FALSE, encoding = "UTF-8"), " ", fixed = TRUE))
- as.character(out)
+ pkg_wordlist <- if(file.exists(wordfile))
+ read_wordfile(wordfile)
+ global_wordfile <- Sys.getenv('SPELLING_WORDLIST')
+ global_wordlist <- if(nchar(global_wordfile) && file.exists(global_wordfile))
+ read_wordfile(global_wordfile)
+ as.character(c(pkg_wordlist, global_wordlist))
 }
 
 get_wordfile <- function(path){
  normalizePath(file.path(path, "inst/WORDLIST"), mustWork = FALSE)
 }
+
+read_wordfile <- function(wordfile){
+ unlist(strsplit(readLines(wordfile, warn = FALSE, encoding = "UTF-8"), " ", fixed = TRUE))
+}