From 1568de1801152725361db23153ab02747ea7db81 Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Thu, 19 Nov 2015 16:24:36 -0600
Subject: [PATCH] suppress some warnings.
---
R/importWQP.R | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/R/importWQP.R b/R/importWQP.R
index 00d304eb..1132fcd6 100644
--- a/R/importWQP.R
+++ b/R/importWQP.R
@@ -83,20 +83,20 @@ importWQP <- function(obs_url, zip=FALSE, tz=""){
}
)
doc <- unzip(temp)
- retval <- read_delim(doc,
+ retval <- suppressWarnings(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 <- read_delim(obs_url,
+ retval <- suppressWarnings(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)
@@ -109,20 +109,20 @@ importWQP <- function(obs_url, zip=FALSE, tz=""){
if(zip){
doc <- unzip(obs_url)
- retval <- read_delim(obs_url,
+ retval <- suppressWarnings(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 <- read_delim(obs_url,
+ retval <- suppressWarnings(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