Align with withr::local_language()

krlmlr · lionel- · commit 9b78aee6a925 · 2024-10-28T11:50:32.000+01:00
diff --git a/R/local.R b/R/local.R
@@ -133,7 +133,7 @@ local_reproducible_output <- function(width = 80,
     .local_envir = .env
   )
 
-  if (isTRUE(capabilities("NLS")) && Sys.getenv("LANG") != "C") {
+  if (isTRUE(capabilities("NLS")) && !(Sys.getenv("LANG") %in% c("C", "C.UTF-8"))) {
     withr::local_language(lang, .local_envir = .env)
   }
 

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