From 1acc36327bde8a82e2bc6118ce4f53b8bf6b2819 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Fri, 10 Oct 2014 09:09:13 -0500
Subject: [PATCH] Took out example because it took too long to run.
---
R/processQWData.r | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/R/processQWData.r b/R/processQWData.r
index 7e3d466b..329374ef 100644
--- a/R/processQWData.r
+++ b/R/processQWData.r
@@ -12,8 +12,10 @@
#' @export
#' @examples
#' # These examples require an internet connection to run
-#' rawSample <- getWQPqwData('USGS-01594440','01075', '1985-01-01', '1985-03-31')
+#' \dontrun{
+#' rawSample <- getWQPqwData('USGS-01594440','', '', '')
#' rawSampleSelect <- processQWData(rawSample)
+#' }
processQWData <- function(data,pCode=TRUE){
qualifier <- ifelse((data$ResultDetectionConditionText == "Not Detected" |
@@ -23,7 +25,6 @@ processQWData <- function(data,pCode=TRUE){
correctedData<-ifelse((nchar(qualifier)==0),data$ResultMeasureValue,data$DetectionQuantitationLimitMeasure.MeasureValue)
test <- data.frame(data$USGSPCode)
- # test$dateTime <- as.POSIXct(strptime(paste(data$ActivityStartDate,data$ActivityStartTime.Time,sep=" "), "%Y-%m-%d %H:%M:%S"))
test$dateTime <- data$ActivityStartDate
originalLength <- nrow(test)
--
GitLab