Merge pull request #15 from ericnewkirk/develop

Develop
Huh · Apr 8, 2021 · d23f17a · d23f17a
2 parents 8151674 + b23b208
commit d23f17a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fetch_ats.R b/R/fetch_ats.R
@@ -222,7 +222,7 @@ ats_join_trans <- function(pos, trans) {
         ),
         format = "%y %j %H %M"
       ),
-      DateUTC = .data$DateOffset + lubridate::hours(.data$GmtOffset),
+      DateUTC = .data$DateOffset - lubridate::hours(.data$GmtOffset),
       DateLocal = lubridate::with_tz(.data$DateUTC, tz = Sys.timezone()),
       DataMode = dplyr::case_when(
         nchar(.data$`2D/3D`) == 1 ~ "Normal",