From e422422d4e443c2ac92247b05d584e5d75407b03 Mon Sep 17 00:00:00 2001 From: cristinamullin <46969696+cristinamullin@users.noreply.github.com> Date: Fri, 6 Dec 2024 14:37:08 -0500 Subject: [PATCH] allow multiple projects on import tab --- R/mod_query_data.R | 2 +- R/utils_track_progress.R | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/R/mod_query_data.R b/R/mod_query_data.R index 05226ab5..6a5fae41 100644 --- 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 index 8f6c92ab..7e30dc21 100644 --- 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)