diff --git a/DESCRIPTION b/DESCRIPTION index fa6e4536..81d278e4 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: dataRetrieval Type: Package Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data -Version: 2.5.4 -Date: 2016-04-7 +Version: 2.5.5 +Date: 2016-04-18 Authors@R: c( person("Robert", "Hirsch", role = c("aut"), email = "rhirsch@usgs.gov"), person("Laura", "DeCicco", role = c("aut","cre"), diff --git a/R/importRDB1.r b/R/importRDB1.r index e0f9fdac..44ffbb70 100644 --- a/R/importRDB1.r +++ b/R/importRDB1.r @@ -199,7 +199,7 @@ importRDB1 <- function(obs_url, asDateTime=TRUE, convertType = TRUE, tz=""){ if(all(c("DATE","TIME","TZCD") %in% header.names)){ varname <- "DATETIME" - varval <- fast_strptime(paste(readr.data[,"DATE"],readr.data[,"TIME"]), "%Y-%m-%d %H%M%S", tz = "UTC") + varval <- fast_strptime(paste(readr.data[,"DATE"],readr.data[,"TIME"]), "%Y-%m-%d %H%M%S", tz = "UTC", lt=FALSE) readr.data[,varname] <- varval readr.data <- convertTZ(readr.data,"TZCD",varname,tz, flip.cols=TRUE) }