Reset cache on exit

r-lib · Jan 9, 2024 · a7c16d3 · a7c16d3
1 parent f97bb1f
commit a7c16d3
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/language.R b/R/language.R
@@ -43,10 +43,11 @@ local_language <- function(lang, .local_envir = parent.frame()) {
     ))
   }
 
-  local_envvar(LANGUAGE = lang, .local_envir = .local_envir)
   # Reset cache to avoid gettext() retrieving cached value from a previous
   # language (idea from https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=931456)
-  bindtextdomain("reset", local_tempdir())
+  defer(bindtextdomain("reset", local_tempdir()))
+
+  local_envvar(LANGUAGE = lang, .local_envir = .local_envir)
 
   invisible()
 }