From 2df7920e46267d4c2e8722ea72c70a8f687a5fe5 Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Tue, 2 Aug 2016 16:20:24 -0500
Subject: [PATCH 1/3] retry?

---
 R/getWebServiceData.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/getWebServiceData.R b/R/getWebServiceData.R
index 6473fa3..56046ac 100644
--- a/R/getWebServiceData.R
+++ b/R/getWebServiceData.R
@@ -26,7 +26,7 @@
 #' }
 getWebServiceData <- function(obs_url, ...){
   
-  returnedList <- GET(obs_url, ..., user_agent(default_ua()))
+  returnedList <- RETRY("GET",obs_url, ..., user_agent(default_ua()))
   
     if(status_code(returnedList) != 200){
       message("For: ", obs_url,"\n")
-- 
GitLab


From 9c1584d46a23195211395f77b01e1a784652867b Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Tue, 2 Aug 2016 16:26:38 -0500
Subject: [PATCH 2/3] Get retry in namespace

---
 NAMESPACE             | 1 +
 R/getWebServiceData.R | 1 +
 2 files changed, 2 insertions(+)

diff --git a/NAMESPACE b/NAMESPACE
index c096d1c..0d01cc1 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -59,6 +59,7 @@ importFrom(dplyr,rbind_all)
 importFrom(dplyr,select_)
 importFrom(httr,GET)
 importFrom(httr,HEAD)
+importFrom(httr,RETRY)
 importFrom(httr,content)
 importFrom(httr,headers)
 importFrom(httr,status_code)
diff --git a/R/getWebServiceData.R b/R/getWebServiceData.R
index 56046ac..fada817 100644
--- a/R/getWebServiceData.R
+++ b/R/getWebServiceData.R
@@ -6,6 +6,7 @@
 #' @param obs_url character containing the url for the retrieval
 #' @param \dots information to pass to header request
 #' @importFrom httr GET
+#' @importFrom httr RETRY
 #' @importFrom httr user_agent
 #' @importFrom httr stop_for_status
 #' @importFrom httr status_code
-- 
GitLab


From 8baad2ac9f9f5188e53aa63978df476c03a5bbaa Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Tue, 2 Aug 2016 16:44:20 -0500
Subject: [PATCH 3/3] bug fix2

---
 R/importRDB1.r | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/importRDB1.r b/R/importRDB1.r
index e217a53..3b82f63 100644
--- a/R/importRDB1.r
+++ b/R/importRDB1.r
@@ -119,8 +119,10 @@ importRDB1 <- function(obs_url, asDateTime=TRUE, convertType = TRUE, tz=""){
   #defaults to time in seconds in readr 0.2.2.9??  
     if(length(grep("hms",lapply(readr.data, class))) > 0){
       colHMS <- grep("hms",lapply(readr.data, class))
-      colList <- list(rep("c", length(colHMS)))
+      
+      colList <- as.list(rep("c",length(colHMS)))
       names(colList) <- paste0("X",colHMS)
+
       readr.data <- suppressWarnings(read_delim(doc, skip = (meta.rows+2),delim="\t",
                                                 col_names = FALSE, 
                                                 col_types = colList))
-- 
GitLab