fixes error when all values of a specific year/sensor are NA

ncss-tech · Feb 6, 2025 · aebbbc1 · aebbbc1
1 parent 5b9c399
commit aebbbc1
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/R/fetchSCAN.R b/R/fetchSCAN.R
@@ -349,10 +349,16 @@ 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(paste(res$Date, res$Time, .so),
-                             format = "%Y-%m-%d %H:%M %z",
-                             tz = tz)
+  # only if there are >1 records of data
+  if (nrow(res) > 0) {
+    res$datetime <- as.POSIXct(
+      paste(res$Date, res$Time, .so),
+      format = "%Y-%m-%d %H:%M %z",
+      tz = tz
+    )
+  }
 
+  # this will be a 0-row data.frame if all data are NA
   return(res)
 }