From a2fbd794089c7d9a1f1c4082438d024fea22c37f Mon Sep 17 00:00:00 2001 From: Erik Leppo Date: Thu, 14 Nov 2024 12:31:58 -0500 Subject: [PATCH] v2.0.7.9036 - fix: Update USGS gage data retreival for midnight entries, Issue \#165 - Same as miniDOT Issue \#163 --- DESCRIPTION | 2 +- NEWS | 9 ++++++++- NEWS.md | 9 ++++++++- NEWS.rmd | 6 ++++++ R/fun.GageData.R | 8 ++++++++ inst/shiny-examples/ContDataQC/global.R | 2 +- 6 files changed, 32 insertions(+), 4 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 1d6433fb..202cef28 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 32ba7e88..d73516a4 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 32ba7e88..d73516a4 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 d35ec5ad..d6646a4f 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 56f44ccd..9edfb12f 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 0a20b898..c3bd5817 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)