Merge branch 'main' into main

lorenzwalthert · web-flow · commit bbe9f20b458b · 2023-09-16T20:06:51.000+02:00
diff --git a/inst/hooks/exported/spell-check.R b/inst/hooks/exported/spell-check.R
@@ -44,7 +44,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(
diff --git a/renv.lock b/renv.lock
@@ -285,7 +285,7 @@
     },
     "knitr": {
       "Package": "knitr",
-      "Version": "1.43",
+      "Version": "1.44",
       "Source": "Repository",
       "Repository": "RSPM",
       "Requirements": [
@@ -297,7 +297,7 @@
         "xfun",
         "yaml"
       ],
-      "Hash": "9775eb076713f627c07ce41d8199d8f6"
+      "Hash": "60885b9f746c9dfaef110d070b5f7dc0"
     },
     "lazyeval": {
       "Package": "lazyeval",

Original file line number	Diff line number	Diff line change
`@@ -44,7 +44,7 @@ if (nrow(spelling_errors) > 0) {`
`44`	`44`	`original = unique(c(ignore, spelling_errors$word))`
`45`	`45`	`)`
`46`	`46`	`ignore_df$lower <- tolower(ignore_df$original)`
`47`		`- ignore_df <- ignore_df[order(ignore_df$lower), ]`
	`47`	`+ ignore_df <- ignore_df[order(ignore_df$lower, method = "radix"), ]`
`48`	`48`	`ignore <- ignore_df$original[ignore_df$lower != ""] # drop blanks if any`
`49`	`49`	`writeLines(ignore, path_wordlist)`
`50`	`50`	`cat(`