Try setting LC_ALL

krlmlr · krlmlr · commit 4d97d8e47dd9 · 2023-10-23T05:49:57.000+02:00
diff --git a/R/local.R b/R/local.R
@@ -133,8 +133,11 @@ local_reproducible_output <- function(width = 80,
     .local_envir = .env
   )
 
-  if (isTRUE(capabilities("NLS")) && !(Sys.getenv("LANG") %in% c("C", "C.UTF-8"))) {
-    withr::local_language(lang, .local_envir = .env)
+  if (isTRUE(capabilities("NLS"))) {
+    if (!(Sys.getenv("LANG") %in% c("C", "C.UTF-8"))) {
+      withr::local_language(lang, .local_envir = .env)
+    }
+    withr::local_envvar(c(LC_ALL = "en_GB"), .local_envir = .env)
   }
 
   withr::local_collate("C", .local_envir = .env)

Original file line number	Diff line number	Diff line change
`@@ -133,8 +133,11 @@ local_reproducible_output <- function(width = 80,`
`133`	`133`	`.local_envir = .env`
`134`	`134`	`)`
`135`	`135`
`136`		`- if (isTRUE(capabilities("NLS")) && !(Sys.getenv("LANG") %in% c("C", "C.UTF-8"))) {`
`137`		`- withr::local_language(lang, .local_envir = .env)`
	`136`	`+ if (isTRUE(capabilities("NLS"))) {`
	`137`	`+ if (!(Sys.getenv("LANG") %in% c("C", "C.UTF-8"))) {`
	`138`	`+ withr::local_language(lang, .local_envir = .env)`
	`139`	`+ }`
	`140`	`+ withr::local_envvar(c(LC_ALL = "en_GB"), .local_envir = .env)`
`138`	`141`	`}`
`139`	`142`
`140`	`143`	`withr::local_collate("C", .local_envir = .env)`