Make GB English the default

Author: jeroen

R/check-files.R

@@ -12,7 +12,7 @@
 #' files <- list.files(system.file("examples", package = "knitr"),
 #'   pattern = "\\.(Rnw|Rmd|html)$", full.names = TRUE)
 #' spell_check_files(files)
-spell_check_files <- function(path, ignore = character(), lang = "en_US"){
+spell_check_files <- function(path, ignore = character(), lang = "en_GB"){
   dict <- hunspell::dictionary(lang, add_words = ignore)
   path <- normalizePath(path, mustWork = TRUE)
   lines <- lapply(sort(path), spell_check_file_one, dict = dict)
@@ -36,7 +36,7 @@ spell_check_file_one <- function(path, dict){
 #' @rdname spell_check_files
 #' @export
 #' @param text character vector with plain text
-spell_check_text <- function(text, ignore = character(), lang = "en_US"){
+spell_check_text <- function(text, ignore = character(), lang = "en_GB"){
   dict <- hunspell::dictionary(lang, add_words = ignore)
   bad_words <- hunspell::hunspell(text, dict = dict)
   words <- sort(unique(unlist(bad_words)))

R/spell-check.R

@@ -23,7 +23,7 @@
 #' @param lang dictionary string for [hunspell][hunspell::dictionary],
 #' usually either `"en_US"` or `"en_GB"`.
 #' @param use_wordlist ignore words in the package [WORDLIST][get_wordlist] file
-spell_check_package <- function(pkg = ".", vignettes = TRUE, lang = "en_US", use_wordlist = TRUE){
+spell_check_package <- function(pkg = ".", vignettes = TRUE, lang = "en_GB", use_wordlist = TRUE){
   # Get package info
   pkg <- as_package(pkg)
 
@@ -116,7 +116,7 @@ print.summary_spellcheck <- function(x, ...){
 #' @rdname spell_check_package
 #' @param error make `R CMD check` fail when spelling errors are found.
 #' Default behavior only prints spelling errors to the console at the end of `CMD check`.
-spell_check_setup <- function(pkg = ".", vignettes = TRUE, lang = "en_US", error = FALSE){
+spell_check_setup <- function(pkg = ".", vignettes = TRUE, lang = "en_GB", error = FALSE){
   # Get package info
   pkg <- as_package(pkg)
   update_wordlist(pkg$path, vignettes = vignettes, lang = lang)
@@ -128,7 +128,7 @@ spell_check_setup <- function(pkg = ".", vignettes = TRUE, lang = "en_US", error
 }
 
 #' @export
-spell_check_test <- function(vignettes = TRUE, lang = "en_US", error = FALSE){
+spell_check_test <- function(vignettes = TRUE, lang = "en_GB", error = FALSE){
   out_save <- readLines(system.file("templates/spelling.Rout.save", package = 'spelling'))
   code <- paste(">", readLines("spelling.R"), collapse = "\n")
   out_save <- sub("@INPUT@", code, out_save, fixed = TRUE)

R/wordlist.R

@@ -16,7 +16,7 @@
 #' @export
 #' @param confirm show changes and ask confirmation before adding new words to the list
 #' @inheritParams spell_check_package
-update_wordlist <- function(pkg = ".", vignettes = TRUE, lang = "en_US", confirm = TRUE){
+update_wordlist <- function(pkg = ".", vignettes = TRUE, lang = "en_GB", confirm = TRUE){
   pkg <- as_package(pkg)
   wordfile <- get_wordfile(pkg$path)
   old_words <- sort(get_wordlist(pkg$path))