Commit c59ec8c0 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Merge pull request #134 from ldecicco-USGS/master

WQP bug fix
parents ccd734ae 100e44e8
Package: dataRetrieval
Type: Package
Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data
Version: 2.3.0
Date: 2015-06-29
Version: 2.3.1
Date: 2015-07-17
Authors@R: c( person("Robert", "Hirsch", role = c("aut"),
email = "rhirsch@usgs.gov"),
person("Laura", "DeCicco", role = c("aut","cre"),
......
......@@ -104,8 +104,8 @@ whatWQPsites <- function(...){
if (!is.na(numToBeReturned) & numToBeReturned != 0){
retval <- read.delim(textConnection(doc), header = TRUE, quote="\"",
dec=".", sep='\t',
retval <- read.delim(textConnection(doc), header = TRUE,
dec=".", sep='\t', quote="",
colClasses=c('character'),
fill = TRUE)
actualNumReturned <- nrow(retval)
......
......@@ -31,14 +31,15 @@ test_that("General NWIS retrievals working", {
test_that("General WQP retrievals working", {
testthat::skip_on_cran()
# testthat::skip_on_cran()
# Bring back when WQP is back
nameToUse <- "pH"
pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
expect_is(pHData$ActivityStartDateTime, 'POSIXct')
pHDataExpanded2 <- readWQPdata(bBox=c(-90.1,42.9,-89.9,43.1),
characteristicName=nameToUse)
expect_is(pHDataExpanded2$ActivityStartDateTime, 'POSIXct')
# pHDataExpanded2 <- readWQPdata(bBox=c(-90.1,42.9,-89.9,43.1),
# characteristicName=nameToUse)
# expect_is(pHDataExpanded2$ActivityStartDateTime, 'POSIXct')
startDate <- as.Date("2013-01-01")
nutrientDaneCounty <- readWQPdata(countycode="US:55:025",startDate=startDate,
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment