Let's try

krlmlr · lionel- · lionel- · commit 43d13d54e091 · 2024-10-28T11:50:32.000+01:00
Co-authored-by: Lionel Henry &lt;lionel.hry@gmail.com&gt;
diff --git a/R/local.R b/R/local.R
@@ -134,12 +134,9 @@ local_reproducible_output <- function(width = 80,
   )
 
   if (isTRUE(capabilities("NLS"))) {
-    # FIXME: We need a new `locale` argument here, should be consistent
-    # with the `lang` argument to `local_reproducible_output()`
-    withr::local_envvar(c(LC_ALL = "en_GB"), .local_envir = .env)
-    if (!(Sys.getenv("LANG") %in% c("C", "C.UTF-8"))) {
+    suppressWarnings(
       withr::local_language(lang, .local_envir = .env)
-    }
+    )
   }
 
   withr::local_collate("C", .local_envir = .env)

Original file line number	Diff line number	Diff line change
`@@ -134,12 +134,9 @@ local_reproducible_output <- function(width = 80,`
`134`	`134`	`)`
`135`	`135`
`136`	`136`	`if (isTRUE(capabilities("NLS"))) {`
`137`		- # FIXME: We need a new `locale` argument here, should be consistent
`138`		- # with the `lang` argument to `local_reproducible_output()`
`139`		`- withr::local_envvar(c(LC_ALL = "en_GB"), .local_envir = .env)`
`140`		`- if (!(Sys.getenv("LANG") %in% c("C", "C.UTF-8"))) {`
	`137`	`+ suppressWarnings(`
`141`	`138`	`withr::local_language(lang, .local_envir = .env)`
`142`		`- }`
	`139`	`+ )`
`143`	`140`	`}`
`144`	`141`
`145`	`142`	`withr::local_collate("C", .local_envir = .env)`