v2.0.7.9036

- fix: Update USGS gage data retreival for midnight entries, Issue \#165 - Same as miniDOT Issue \#163
leppott · Nov 14, 2024 · a2fbd79 · a2fbd79
1 parent 8300e54
commit a2fbd79
Show file tree

Hide file tree

Showing 6 changed files with 32 additions and 4 deletions.
diff --git 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="[email protected]",role=c("aut","cre")),
 	person("Ann","Roseberry Lincoln", role="ctb"),

diff --git a/NEWS b/NEWS
@@ -3,10 +3,17 @@ NEWS-ContDataQC
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> 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
@@ -3,10 +3,17 @@ NEWS-ContDataQC
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> 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
@@ -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
@@ -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
@@ -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)