Merge pull request #514 from TymekDev/wordlist-sorting

lorenzwalthert · web-flow · commit f9a830b099c7 · 2023-09-16T10:18:39.000+02:00
Make sorting consistent with spelling::update_wordlist
diff --git a/inst/hooks/exported/spell-check.R b/inst/hooks/exported/spell-check.R
@@ -38,7 +38,7 @@ if (nrow(spelling_errors) > 0) {
     original = unique(c(ignore, spelling_errors$word))
   )
   ignore_df$lower <- tolower(ignore_df$original)
-  ignore_df <- ignore_df[order(ignore_df$lower), ]
+  ignore_df <- ignore_df[order(ignore_df$lower, method = "radix"), ]
   ignore <- ignore_df$original[ignore_df$lower != ""] # drop blanks if any
   writeLines(ignore, path_wordlist)
   cat(

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ if (nrow(spelling_errors) > 0) {`
`38`	`38`	`original = unique(c(ignore, spelling_errors$word))`
`39`	`39`	`)`
`40`	`40`	`ignore_df$lower <- tolower(ignore_df$original)`
`41`		`- ignore_df <- ignore_df[order(ignore_df$lower), ]`
	`41`	`+ ignore_df <- ignore_df[order(ignore_df$lower, method = "radix"), ]`
`42`	`42`	`ignore <- ignore_df$original[ignore_df$lower != ""] # drop blanks if any`
`43`	`43`	`writeLines(ignore, path_wordlist)`
`44`	`44`	`cat(`