From 309e3571c91d8b4098053c86f643caa2c447ec45 Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Tue, 24 Sep 2024 08:41:45 -0700 Subject: [PATCH] add message --- R/fetchSCAN.R | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/R/fetchSCAN.R b/R/fetchSCAN.R index 4a36ba2d..6edd6768 100644 --- a/R/fetchSCAN.R +++ b/R/fetchSCAN.R @@ -152,6 +152,12 @@ fetchSCAN <- function(site.code = NULL, year = NULL, report = 'SCAN', timeseries # * all stations returned when site.code is NULL m <- SCAN_site_metadata(site.code) + if (length(unique(m$dataTimeZone)) > 1) { + message("NOTE: data requested occurs in multiple timezones; returning in tz=\"", tz, "\"") + } else if (!all(m$dataTimeZone %in% c(-5, -6)) && missing(tz)) { + message("NOTE: data requested occurs in timezones outside of US/Central; returning in tz=\"", tz, "\"") + } + # all possible combinations of site codes and year | single report and timeseries type g <- expand.grid(s = m$Site, y = year, r = report, dt = timeseries)