Merge pull request #193 from USEPA/fixes-project-queries

allow multiple projects on import tab
USEPA · Dec 6, 2024 · d0e251d · d0e251d
2 parents 7577801 + e422422
commit d0e251d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/mod_query_data.R b/R/mod_query_data.R
@@ -447,7 +447,7 @@ mod_query_data_server <- function(id, tadat) {
       if (is.null(input$project)) {
         tadat$project <- "null"
       } else {
-        tadat$project <- paste(input$project, collapse = ",")
+        tadat$project <- input$project
       }
       if (is.null(input$org)) {
         tadat$organization <- "null"

diff --git a/R/utils_track_progress.R b/R/utils_track_progress.R
@@ -112,6 +112,7 @@ writeNarrativeDataFrame <- function(tadat) {
   tadat$siteType <- paste(tadat$siteType, collapse = " ")
   tadat$characteristicType <- paste(tadat$characteristicType, collapse = " ")
   tadat$characteristicName <- paste(tadat$characteristicName, collapse = " ")
+  tadat$project <- paste(tadat$project, collapse = " ")
   df <- data.frame(Parameter = character(), Value = character())
   df[nrow(df) + 1, ] <- c("TADA Shiny Job ID", tadat$job_id)
   df[nrow(df) + 1, ] <- c("Original data source: ", tadat$original_source)