add note

USEPA · Dec 4, 2024 · 226542d · 226542d
1 parent 962ba68
commit 226542d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/mod_TADA_summary.R b/R/mod_TADA_summary.R
@@ -205,9 +205,9 @@ mod_TADA_summary_server <- function(id, tadat) {
         setwd(tempdir())
         datafile_name <- paste0(tadat$default_outfile, ".xlsx")
         progress_file_name <- paste0(tadat$default_outfile, "_prog.RData")
-        print(111)
+        # print(111)
         desc <- writeNarrativeDataFrame(tadat)
-        print(222)
+        # print(222)
         dfs <-
           list(Data = EPATADA::TADA_OrderCols(tadat$raw), Parameterization = desc)
         writeFile(tadat, progress_file_name)

diff --git a/R/utils_track_progress.R b/R/utils_track_progress.R
@@ -176,6 +176,7 @@ writeNarrativeDataFrame <- function(tadat) {
   }
 
   # Filtering tab
+  # skips the recording of selected filters in the progress file if the filters haven't been selected yet
   if (nrow(tadat$selected_filters) > 0) {
     for (row in 1:nrow(tadat$selected_filters)) {
       val <-       paste0(