From eb222e293856c9397c1437eaef556bf1903ddd28 Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Fri, 26 Jun 2015 10:56:46 -0500
Subject: [PATCH] Fixed quote bug with new WQP.
---
R/importWQP.R | 12 ++++--------
1 file changed, 4 insertions(+), 8 deletions(-)
diff --git a/R/importWQP.R b/R/importWQP.R
index fa1b8c64..761c9287 100644
--- a/R/importWQP.R
+++ b/R/importWQP.R
@@ -72,19 +72,15 @@ importWQP <- function(obs_url, zip=FALSE, tz=""){
if (!is.na(numToBeReturned) & numToBeReturned != 0){
- suppressWarnings(namesData <- read.delim(if(zip) doc else textConnection(doc) , header = TRUE, quote="\"",
- dec=".", sep='\t',
- colClasses='character',
- fill = TRUE,nrow=1))
+ suppressWarnings(namesData <- read.delim(if(zip) doc else textConnection(doc) , header = TRUE, quote="",
+ dec=".", sep='\t', colClasses='character',nrow=1))
classColumns <- setNames(rep('character',ncol(namesData)),names(namesData))
classColumns[grep("MeasureValue",names(classColumns))] <- NA
- suppressWarnings(retval <- read.delim(if(zip) doc else textConnection(doc), header = TRUE, quote="\"",
- dec=".", sep='\t',
- colClasses=as.character(classColumns),
- fill = TRUE))
+ suppressWarnings(retval <- read.delim(if(zip) doc else textConnection(doc), header = TRUE, quote="",
+ dec=".", sep='\t', colClasses=as.character(classColumns)))
actualNumReturned <- nrow(retval)
--
GitLab