Fix expanded bug.

DOI-USGS · Jan 26, 2016 · 66a85d2 · 66a85d2
1 parent 0f8c5c9
commit 66a85d2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/importRDB1.r b/R/importRDB1.r
@@ -185,7 +185,9 @@ importRDB1 <- function(obs_url, asDateTime=TRUE, convertType = TRUE, tz=""){
 
       if("tz_cd" %in% header.names){
         date.time.cols <- which(sapply(readr.data, function(x) inherits(x, "POSIXct")))
-        readr.data <- convertTZ(readr.data,"tz_cd",date.time.cols,tz, flip.cols=FALSE)
+        if(length(date.time.cols) > 0){
+          readr.data <- convertTZ(readr.data,"tz_cd",date.time.cols,tz, flip.cols=FALSE)
+        }
       }
 
       if("DATE" %in% header.names){