Merge pull request #405 from lorenzwalthert/issue-404

Ensure sorting is case insensitive

Author: lorenzwalthert

inst/WORDLIST

@@ -1,25 +1,69 @@
-ae
 Affero
+Averick
+CLI
+CMD
+Ctrl
+EOF
+Ei
+Eic
+Gitlab
+Homebrew
+IssueHunt
+KernSmooth
+Ko
+LF
+Liberapay
+Lifecycle
+MERCHANTABILITY
+Otechie
+Patreon
+RData
+RSMP
+RStudio
+Rbuildignore
+Rdata
+Rds
+Renviron
+Resubmission
+Rhistory
+Rnw
+RoxygenNote
+Rprofile
+Rproj
+Rr
+Rscript
+SHA
+Sublicensing
+Sys
+SystemRequirements
+Tidelift
+UCRT
+Uninstallation
+Unstaged
+Upvote
+VignetteBuilder
+WIPO
+Walthert
+Za
+ae
 api
 appveyor
 arg
 args
 artific
 autoupdate
-Averick
 bd
 beaefa
 behaviour
 bliblablupp
 cfe
 ci
 cli
-CLI
 cmd
-CMD
 codemeta
 codemetar
 codetools
+comit
 commandArgs
 comparator
 conda
@@ -29,25 +73,21 @@ copyrightable
 cp
 cran
 csv
-Ctrl
 dcf
 deps
 desc
 dev
 dir
 dirname
+docType
 docopt
 docsearch
-docType
 dontrun
 donttest
-Ei
-Eic
 elif
 emph
 entrypoint
 env
-EOF
 eval
 exlucded
 fi
@@ -60,11 +100,9 @@ getwd
 gh
 github
 gitignore
-Gitlab
 grDevices
 grepl
 gsub
-Homebrew
 href
 http
 https
@@ -74,23 +112,17 @@ impl
 init
 io
 isAvailable
-issuehunt
-IssueHunt
 isTRUE
+issuehunt
 jpeg
 json
-KernSmooth
 knitr
 ko
-Ko
 lang
 lapply
-LF
 lgpl
 liberapay
-Liberapay
 licensors
-Lifecycle
 lintr
 loadCache
 lorenz
@@ -100,7 +132,6 @@ macOS
 magrittr
 maxkb
 md
-MERCHANTABILITY
 mgcv
 miniconda
 mis
@@ -119,13 +150,11 @@ num
 oneliner
 os
 otechie
-Otechie
 overscope
 packageVersion
 params
 parsable
 patreon
-Patreon
 pkgapi
 pkgdown
 pkgload
@@ -137,91 +166,63 @@ precommithooks
 proj
 purrr
 py
-Rbuildignore
+rR
 rc
-Rdata
-RData
 rds
-Rds
 readLines
 readme
 recognised
 relicensing
 renv
-Renviron
 repo
 repos
-Resubmission
 reticulate
-Rhistory
 rlang
 rmarkdown
 rmd
 rnw
-Rnw
 roclet
 roclets
 ropenscilabs
 roxygen
 roxygenise
 roxygenize
-RoxygenNote
 rpart
-Rprofile
-Rproj
 rprojroot
-rR
-Rr
-Rscript
-RSMP
 rstudio
-RStudio
 rstudioapi
 saveCache
 seealso
 sep
 setdiff
-SHA
 stderr
 stdout
 sterr
 stopifnot
 styler
 sublicenses
-Sublicensing
-Sys
-SystemRequirements
 tcltk
 tempfile
 testthat
 tibble
 tidelift
-Tidelift
 tidyverse
 toolchain
 trailingOnly
 travis
 tryCatch
 ubuntu
-UCRT
 uninitialised
-Uninstallation
 unlist
 unname
-Unstaged
-Upvote
 usethis
 usr
-VignetteBuilder
 walthert
-Walthert
 wd
-WIPO
 withr
 wordlist
 writeLines
 www
 yaml
 yihui
 yml
-Za

inst/hooks/exported/spell-check.R

@@ -34,8 +34,12 @@ spelling_errors <- spelling::spell_check_files(
 if (nrow(spelling_errors) > 0) {
   cat("The following spelling errors were found:\n")
   print(spelling_errors)
-  ignore <- sort(unique(c(ignore, spelling_errors$word)))
-  ignore <- ignore[ignore != ""] # drop blanks if any
+  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",