.onAttach: translate Sys.setLanguage('en') message (#6809)

aitap · web-flow · commit 032b9c7db74c · 2025-02-10T10:37:06.000-08:00
diff --git a/R/onAttach.R b/R/onAttach.R
@@ -27,7 +27,7 @@
     if (gettext("TRANSLATION CHECK") != "TRANSLATION CHECK") {
       packageStartupMessagef(
         "**********\nRunning data.table in English; package support is available in English only. When searching for online help, be sure to also check for the English error message. This can be obtained by looking at the po/R-<locale>.po and po/<locale>.po files in the package source, where the native language and English error messages can be found side-by-side.%s\n**********",
-        if (exists('Sys.setLanguage', envir=baseenv())) " You can also try calling Sys.setLanguage('en') prior to reproducing the error message." else ""
+        if (exists('Sys.setLanguage', envir=baseenv())) gettext(" You can also try calling Sys.setLanguage('en') prior to reproducing the error message.") else ""
       )
     }
     if (dev && (Sys.Date() - as.Date(d))>28L)

Original file line number	Diff line number	Diff line change
`@@ -27,7 +27,7 @@`
`27`	`27`	`if (gettext("TRANSLATION CHECK") != "TRANSLATION CHECK") {`
`28`	`28`	`packageStartupMessagef(`
`29`	`29`	`"********\nRunning data.table in English; package support is available in English only. When searching for online help, be sure to also check for the English error message. This can be obtained by looking at the po/R-<locale>.po and po/<locale>.po files in the package source, where the native language and English error messages can be found side-by-side.%s\n********",`
`30`		`- if (exists('Sys.setLanguage', envir=baseenv())) " You can also try calling Sys.setLanguage('en') prior to reproducing the error message." else ""`
	`30`	`+ if (exists('Sys.setLanguage', envir=baseenv())) gettext(" You can also try calling Sys.setLanguage('en') prior to reproducing the error message.") else ""`
`31`	`31`	`)`
`32`	`32`	`}`
`33`	`33`	`if (dev && (Sys.Date() - as.Date(d))>28L)`