diff --git a/R/getSampleData.r b/R/getSampleData.r index 71de6d398b93b28d6c92ad4ccd89c961982430dd..f7aedc082055e992b8420d8eedc610a8f5d79300 100644 --- a/R/getSampleData.r +++ b/R/getSampleData.r @@ -22,7 +22,7 @@ #' Sample_Select <- getSampleData('05114000','00915;00931', '', '') getSampleData <- function(siteNumber,ParameterCd,StartDate,EndDate,interactive=TRUE){ rawSample <- retrieveNWISqwData(siteNumber,ParameterCd,StartDate,EndDate) - rawSample$dateTime <- strptime(rawSample$dateTime,"%Y-%m-%d %H:%M:%S") + #rawSample$dateTime <- strptime(rawSample$dateTime,"%Y-%m-%d %H:%M:%S") rawSample$dateTime <- as.Date(rawSample$dateTime) rawSample$site <- NULL compressedData <- compressData(rawSample, interactive=interactive)