Set LC_ALL first?

krlmlr · lionel- · commit 9cd230f68d5b · 2024-10-28T11:50:32.000+01:00
diff --git a/R/local.R b/R/local.R
@@ -134,10 +134,12 @@ 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"))) {
       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
`@@ -134,10 +134,12 @@ 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)`
`137`	`140`	`if (!(Sys.getenv("LANG") %in% c("C", "C.UTF-8"))) {`
`138`	`141`	`withr::local_language(lang, .local_envir = .env)`
`139`	`142`	`}`
`140`		`- withr::local_envvar(c(LC_ALL = "en_GB"), .local_envir = .env)`
`141`	`143`	`}`
`142`	`144`
`143`	`145`	`withr::local_collate("C", .local_envir = .env)`