fix for times in with timeseries="Hourly"

ncss-tech · Sep 18, 2024 · aa80dfb · aa80dfb
1 parent f762612
commit aa80dfb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fetchSCAN.R b/R/fetchSCAN.R
@@ -331,7 +331,7 @@ fetchSCAN <- function(site.code = NULL, year = NULL, report = 'SCAN', timeseries
   .so <- formatC(meta$dataTimeZone * 100, 4, flag = 0)
 
   # create datetime stamp standardized to user-specified timezone
-  res$datetime <- as.POSIXct(strftime(paste(res$Date, res$Time, .so), "%Y-%m-%d %H:%M %z"),
+  res$datetime <- as.POSIXct(strptime(paste(res$Date, res$Time, .so), "%Y-%m-%d %H:%M %z"),
                              format = "%Y-%m-%d %H:%M %z",
                              tz = tz)