v2.0.7.9046

- fix: Update shinyalert for HOBO reformat for multiple files

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ContDataQC
 Title: Quality Control (QC) of Continous Monitoring Data
-Version: 2.0.7.9045
+Version: 2.0.7.9046
 Authors@R: c(
 	person("Erik W", "Leppo", email="[email protected]",role=c("aut","cre")),
 	person("Ann","Roseberry Lincoln", role="ctb"),

NEWS

@@ -3,10 +3,16 @@ NEWS-ContDataQC
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> Last Update: 2024-12-26 12:35:08.668478
+    #> Last Update: 2024-12-26 13:39:53.643252
 
 # Version History
 
+## v2.0.7.9046
+
+2024-12-26
+
+- fix: Update shinyalert for HOBO reformat for multiple files
+
 ## v2.0.7.9045
 
 2024-12-26
@@ -17,7 +23,7 @@ NEWS-ContDataQC
 
 2024-12-23
 
-- refactor: Update Excel file in Shinay 3c3_QCThresh_Eval
+- refactor: Update Excel file in Shiny 3c3_QCThresh_Eval
 
 ## v2.0.7.9043
 

NEWS.md

@@ -3,10 +3,16 @@ NEWS-ContDataQC
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> Last Update: 2024-12-26 12:35:08.668478
+    #> Last Update: 2024-12-26 13:39:53.643252
 
 # Version History
 
+## v2.0.7.9046
+
+2024-12-26
+
+- fix: Update shinyalert for HOBO reformat for multiple files
+
 ## v2.0.7.9045
 
 2024-12-26
@@ -17,7 +23,7 @@ NEWS-ContDataQC
 
 2024-12-23
 
-- refactor: Update Excel file in Shinay 3c3_QCThresh_Eval
+- refactor: Update Excel file in Shiny 3c3_QCThresh_Eval
 
 ## v2.0.7.9043
 

NEWS.rmd

@@ -21,6 +21,11 @@ cat(paste0("Last Update: ",Sys.time()))
 
 # Version History
 
+## v2.0.7.9046
+2024-12-26
+
+* fix: Update shinyalert for HOBO reformat for multiple files
+
 ## v2.0.7.9045
 2024-12-26
 
@@ -29,7 +34,7 @@ cat(paste0("Last Update: ",Sys.time()))
 ## v2.0.7.9044
 2024-12-23
 
-* refactor: Update Excel file in Shinay 3c3_QCThresh_Eval
+* refactor: Update Excel file in Shiny 3c3_QCThresh_Eval
 
 ## v2.0.7.9043
 2024-12-23

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.9045"
+version <- "2.0.7.9046"
 
 #Maximum individual file size that can be uploaded is 70 MB
 options(shiny.maxRequestSize = 70 * 1024^2)

inst/shiny-examples/ContDataQC/server.R

@@ -588,36 +588,40 @@ shinyServer(function(input, output, session) {
         )## consoleRow ~ END
 
         #~~~
-        # testing, 2024-11-04
-        df_test <-  utils::read.delim(file.path("HOBO", fileNameVector)
+        # testing, 2024-11-04 (update for multiple files 20241226)
+        for(t in fileNameVector) {
+          df_test <-  utils::read.delim(file.path("HOBO", t)
                                       , skip = 0
                                       , header = TRUE
                                       , sep = ","
                                       , check.names = FALSE
                                       , stringsAsFactors = FALSE)
-        # pop up
-        na_date <- is.na(df_test[,ContData.env$myName.DateTime])
-        if (any(na_date)) {
           # pop up
-          n_na <- sum(na_date)
-          msg <- paste0("Some 'Date Time' records did not convert!\n\n"
-                        , n_na, " / ", nrow(df_test), " records converted to 'NA'.\n\n"
-                        , "The user specified format '"
-                        , HOBO_DateFormat_User
-                        , "' "
-                        , "did not match the data.\n\n"
-                        , "Try another format and/or check your data in Notepad "
-                        , "(or other similar text editor).  "
-                        , "Avoid Excel as it doesn't show dates or times 'as is'.")
-        } else {
-          msg <- "Date Time converted without issues."
-        }## IF ~ any NA in datetime
-        shinyalert::shinyalert(title = "HOBOware Date Time Conversion"
-                               , text = msg
-                               , type = "info"
-                               , closeOnEsc = TRUE
-                               , closeOnClickOutside = TRUE)
-        validate(msg)
+          na_date <- is.na(df_test[,ContData.env$myName.DateTime])
+           if (any(na_date)) {
+             # pop up
+             n_na <- sum(na_date)
+             msg <- paste0("Some 'Date Time' records did not convert!\n\n"
+                           , t, "\n\n"
+                           , n_na, " / ", nrow(df_test), " records converted to 'NA'.\n\n"
+                           , "The user specified format '"
+                           , HOBO_DateFormat_User
+                           , "' "
+                           , "did not match the data.\n\n"
+                           , "Try another format and/or check your data in Notepad "
+                           , "(or other similar text editor).  "
+                           , "Avoid Excel as it doesn't show dates or times 'as is'.")
+           } else {
+             msg <- paste0(t, "\n\n"
+                           , "Date Time converted without issues.")
+           }## IF ~ any NA in datetime
+           shinyalert::shinyalert(title = "HOBOware Date Time Conversion"
+                                  , text = msg
+                                  , type = "info"
+                                  , closeOnEsc = TRUE
+                                  , closeOnClickOutside = TRUE)
+           validate(msg)
+        }## FOR ~ t
         #~~~
 
         #Appends the R console output generated from that input file to the