From aa80dfbc6b5998e5197474fa7c8ec7e61e822b78 Mon Sep 17 00:00:00 2001
From: Andrew Gene Brown <andrew.g.brown@usda.gov>
Date: Wed, 18 Sep 2024 15:57:38 -0700
Subject: [PATCH] fix for times in with `timeseries="Hourly"`

---
 R/fetchSCAN.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/fetchSCAN.R b/R/fetchSCAN.R
index 3f379530..424f44aa 100644
--- 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)