diff --git a/R/importWQP.R b/R/importWQP.R
index 00d304eb6a9c18658c5aa9c293725507536a7c7c..1132fcd6e24987609d52acd7ed6bf03e755b54f9 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"))
     }
     
   }