From c45ea110c91dd8d9cd60297152280b0987201f7a Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Wed, 25 Nov 2015 13:51:05 -0600
Subject: [PATCH] Took out phantom times.
---
R/readNWISunit.r | 1 +
1 file changed, 1 insertion(+)
diff --git a/R/readNWISunit.r b/R/readNWISunit.r
index 940eb021..402e9020 100644
--- a/R/readNWISunit.r
+++ b/R/readNWISunit.r
@@ -295,6 +295,7 @@ readNWISmeas <- function (siteNumbers,startDate="",endDate="", tz=""){
data$measurement_dateTime <- data$measurement_dt
data$measurement_dt <- as.Date(data$measurement_dateTime)
data$measurement_tm <- strftime(data$measurement_dateTime, "%H:%M")
+ data$measurement_tm[is.na(data$tz_cd_reported)] <- ""
indexDT <- which("measurement_dt" == names(data))
indexTZ <- which("tz_cd" == names(data))
indexTM <- which("measurement_tm" == names(data))
--
GitLab