From 4515e9b376300410a55d8112961a424a1a4c1c7d Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Thu, 3 Dec 2015 14:49:19 -0600
Subject: [PATCH] un-suppressed the warnings.
---
R/importWQP.R | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/R/importWQP.R b/R/importWQP.R
index c636c735..48a058bd 100644
--- a/R/importWQP.R
+++ b/R/importWQP.R
@@ -85,20 +85,20 @@ importWQP <- function(obs_url, zip=FALSE, tz=""){
}
)
doc <- unzip(temp)
- retval <- suppressWarnings(read_delim(doc,
+ retval <- read_delim(doc,
col_types = cols(`ActivityStartTime/Time` = col_character(),
`ActivityEndTime/Time` = col_character(),
USGSPCode = col_character(),
ResultCommentText=col_character()),
- quote = "", delim = "\t"))
+ quote = "", delim = "\t")
unlink(doc)
} else {
- retval <- suppressWarnings(read_delim(obs_url,
+ retval <- read_delim(obs_url,
col_types = cols(`ActivityStartTime/Time` = col_character(),
`ActivityEndTime/Time` = col_character(),
USGSPCode = col_character(),
ResultCommentText=col_character()),
- quote = "", delim = "\t"))
+ quote = "", delim = "\t")
}
} else {
stop("Status:", headerInfo['status'], ": ", headerInfo['statusMessage'], "\nFor: ", obs_url)
@@ -111,20 +111,20 @@ importWQP <- function(obs_url, zip=FALSE, tz=""){
if(zip){
doc <- unzip(obs_url)
- retval <- suppressWarnings(read_delim(obs_url,
+ retval <- read_delim(obs_url,
col_types = cols(`ActivityStartTime/Time` = col_character(),
`ActivityEndTime/Time` = col_character(),
USGSPCode = col_character(),
ResultCommentText=col_character()),
- quote = "", delim = "\t"))
+ quote = "", delim = "\t")
unlink(doc)
} else {
- retval <- suppressWarnings(read_delim(obs_url,
+ retval <- read_delim(obs_url,
col_types = cols(`ActivityStartTime/Time` = col_character(),
`ActivityEndTime/Time` = col_character(),
USGSPCode = col_character(),
ResultCommentText=col_character()),
- quote = "", delim = "\t"))
+ quote = "", delim = "\t")
}
}
--
GitLab