From ff5d8fae6964bb8242d62b8f02363eabc48bbc4f Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Tue, 2 Dec 2014 12:09:34 -0600
Subject: [PATCH] Added message if user asks for reshaped, non-expanded data.
---
R/readNWISqw.r | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/R/readNWISqw.r b/R/readNWISqw.r
index 454f60d7..9e6229a5 100644
--- a/R/readNWISqw.r
+++ b/R/readNWISqw.r
@@ -13,7 +13,8 @@
#' @param expanded logical defaults to TRUE. If TRUE, retrieves additional information. Expanded data includes
#' remark_cd (remark code), result_va (result value), val_qual_tx (result value qualifier code), meth_cd (method code),
#' dqi_cd (data-quality indicator code), rpt_lev_va (reporting level), and rpt_lev_cd (reporting level type).
-#' @param reshape logical. Will reshape the data if TRUE (default)
+#' @param reshape logical. Will reshape the data to a wide format if TRUE (default is FALSE). This is only
+#' available for 'expanded' data.
#' @param tz character to set timezone attribute of datetime. Default is an empty quote, which converts the
#' datetimes to UTC (properly accounting for daylight savings times based on the data's provided tz_cd column).
#' Possible values to provide are "America/New_York","America/Chicago", "America/Denver","America/Los_Angeles",
@@ -75,6 +76,10 @@ readNWISqw <- function (siteNumbers,pCodes,startDate="",endDate="",
}
+ if(reshape & !expanded){
+ message("Reshape can only be used with expanded data. Reshape request will be ignored.")
+ }
+
siteInfo <- readNWISsite(siteNumbers)
varInfo <- readNWISpCode(pCodes)
--
GitLab