Set language to DESCRIPTION language (or English) in local_reproducible_output()

NEWS.md

@@ -1,5 +1,7 @@
 # roxygen2 (development version)
 
+* `@includeRmd` now additionally sets language to the Language in DESCRIPTION to make output reproducible (#1622)
+
 * The check for unexported S3 methods was improved, so it does not hang any more
   if a largish data object is in the package (#1593, @jranke).
 

R/rd-eval.R

@@ -23,5 +23,11 @@ local_reproducible_output <- function(.envir = parent.frame()) {
     .local_envir = .envir
   )
   withr::local_envvar(RSTUDIO = NA, .local_envir = .envir)
+
+  if (isTRUE(capabilities("NLS")) && Sys.getenv("LANG") != "C") {
+    lang <- unname(desc::desc_get("Language")) %|% "en"
+    withr::local_language(lang, .local_envir = .envir)
+  }
+
   withr::local_collate("C", .local_envir = .envir)
 }