[#928] Set TZDIR if empty (#936)

* [#928] Call Sys.timezone() onLoad
tidyverse · Nov 21, 2020 · 6c535c8 · 6c535c8
1 parent 727a449
commit 6c535c8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/zzz.R b/R/zzz.R
@@ -8,9 +8,6 @@
 
   ## adapted from Syz.timezone and OlsonNames function
   .find_tzdir <- function() {
-    ## Initialize Sys.timezone() cache to avoid resetting TZDIR at a later stage.
-    ## As of R4.0.3 Sys.timezone() intrusively sets TZDIR to non path values.
-    Sys.timezone()
     if (.Platform$OS.type == "windows")
       return(file.path(R.home("share"), "zoneinfo"))
     tzdirs <- c("/usr/share/zoneinfo",
@@ -27,6 +24,9 @@
     else NULL
   }
 
+  ## Initialize Sys.timezone() cache to avoid resetting TZDIR at a later stage.
+  ## As of R4.0.3 Sys.timezone() intrusively sets TZDIR to non path values.
+  Sys.timezone()
   tzdir <- Sys.getenv("TZDIR")
   if (tzdir == "internal") {
     Sys.setenv(TZDIR = file.path(R.home("share"), "zoneinfo"))