use force_tz to apply timezone to data on POSIXct_time inputs

IhsanKhaliq · Jun 30, 2021 · 32df19d · 32df19d
1 parent 2599919
commit 32df19d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/format_weather.R b/R/format_weather.R
@@ -374,9 +374,8 @@ format_weather <- function(x,
     # POSIXct class
     if (lubridate::tz(x[, times]) == "" ||
         lubridate::tz(x[, times]) == "UTC") {
-      x[, times := lubridate::ymd_hms(x[, times],
-                                      tz = ..time_zone,
-                                      quiet = TRUE)]
+      x[, times := lubridate::force_tz(x[, times],
+                                      tzone = ..time_zone)]
     }
   } else {
     # if POSIX formatted times were not supplied, create a POSIXct