Baro Imported with Incorrect Time Zone

[jonbry]

Discovered when investigating PWD-MARS/shinyDownloadTools#19.

When the maintenance scripts were changed to run on Posit Connect, we started importing baro data as America/New_York rather than EST:

marsMaintenanceScripts/02_connectscripts/01_update_baro_tables.rmd

Lines 319 to 323 in 81ed0b7

	tempdata$dtime <- mdy_hms(tempdata$dtime, tz = "America/New_York")
	tempdata$baro_rawfile_uid <- newfiles$baro_rawfile_uid[i]
	tempdata <- tempdata[complete.cases(tempdata[, 1:3]),] #Purge NA rows from the final data set
	newdata <- bind_rows(newdata, tempdata)

Lubridate functions like mdy_hms work similar to force_tz so it changes/adds the time zone without impacting the actual date value.

Solution

Update code to read data as EST then convert it to America/New_York to make sure it aligns correctly with our other time series data. We likely need to delete and reimport all data since the code was changed to run on Connect.

[jonbry]

Verified that change works:

library(pool)
library(tidyverse)

direct_path <- "//pwdoows/OOWS/Watershed Sciences/GSI Monitoring/02 GSI Monitoring Sites/Morris Leeds_179/Raw Data/20251121_JEO/179-5-1_OW1_BARO_10338610.csv"
# Import from csv
tempdata <- read_csv(direct_path, 
                           skip = 1,
                           col_select = 2:4)

# Change names
names(tempdata) <- c("dtime", "baro_psi", "temp_f")

tempdata <- tempdata |>
  mutate(dtime = mdy_hms(dtime, tz = "EST"),
         dtime = with_tz(dtime, tz = "America/New_York"))