diff --git a/DESCRIPTION b/DESCRIPTION index 1d6433f..202cef2 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: ContDataQC Title: Quality Control (QC) of Continous Monitoring Data -Version: 2.0.7.9035 +Version: 2.0.7.9036 Authors@R: c( person("Erik W", "Leppo", email="Erik.Leppo@tetratech.com",role=c("aut","cre")), person("Ann","Roseberry Lincoln", role="ctb"), diff --git a/NEWS b/NEWS index 32ba7e8..d73516a 100644 --- a/NEWS +++ b/NEWS @@ -3,10 +3,17 @@ NEWS-ContDataQC - #> Last Update: 2024-11-04 13:25:07.843989 + #> Last Update: 2024-11-14 12:21:43.318815 # Version History +## v2.0.7.9036 + +2024-11-14 + +- fix: Update USGS gage data retreival for midnight entries, Issue \#165 + - Same as miniDOT Issue \#163 + ## v2.0.7.9035 2024-11-04 diff --git a/NEWS.md b/NEWS.md index 32ba7e8..d73516a 100644 --- a/NEWS.md +++ b/NEWS.md @@ -3,10 +3,17 @@ NEWS-ContDataQC - #> Last Update: 2024-11-04 13:25:07.843989 + #> Last Update: 2024-11-14 12:21:43.318815 # Version History +## v2.0.7.9036 + +2024-11-14 + +- fix: Update USGS gage data retreival for midnight entries, Issue \#165 + - Same as miniDOT Issue \#163 + ## v2.0.7.9035 2024-11-04 diff --git a/NEWS.rmd b/NEWS.rmd index d35ec5a..d6646a4 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -21,6 +21,12 @@ cat(paste0("Last Update: ",Sys.time())) # Version History +## v2.0.7.9036 +2024-11-14 + +* fix: Update USGS gage data retreival for midnight entries, Issue #165 + + Same as miniDOT Issue #163 + ## v2.0.7.9035 2024-11-04 diff --git a/R/fun.GageData.R b/R/fun.GageData.R index 56f44cc..9edfb12 100644 --- a/R/fun.GageData.R +++ b/R/fun.GageData.R @@ -203,6 +203,14 @@ fun.GageData <- function(fun.myData.SiteID strFile.Date.End <- format(max(data.myGage[,ContData.env$myName.DateTime]) ,ContData.env$myFormat.Date) + # Update DateTime format + # 2024-11-14, midnight, 00:00 dropped if don't convert to character using format + # data.myGage[, "dt_char"] <- as.character(data.myGage[,ContData.env$myName.DateTime]) + data.myGage[, ContData.env$myName.DateTime] <- as.character( + format(data.myGage[,ContData.env$myName.DateTime] + , ContData.env$myFormat.DateTime + , usetz = FALSE)) + # 10.0. Output file # 10.1. Set Name File.Date.Start <- format(as.Date(strFile.Date.Start diff --git a/inst/shiny-examples/ContDataQC/global.R b/inst/shiny-examples/ContDataQC/global.R index 0a20b89..c3bd581 100644 --- a/inst/shiny-examples/ContDataQC/global.R +++ b/inst/shiny-examples/ContDataQC/global.R @@ -23,7 +23,7 @@ library(shinyalert) # Sys.setenv(PATH = paste(Sys.getenv("PATH"), "C:\\Rtools\\bin", sep = ";")) # Version Number -version <- "2.0.7.9035" +version <- "2.0.7.9036" #Maximum individual file size that can be uploaded is 70 MB options(shiny.maxRequestSize = 70 * 1024^2)