From 6804bbe11730bafd47138b762d98168947bd2fac Mon Sep 17 00:00:00 2001
From: cristinamullin <46969696+cristinamullin@users.noreply.github.com>
Date: Thu, 5 Dec 2024 13:22:32 -0500
Subject: [PATCH] allow multiple values in import tab filters

allow multiple selections for characteristicName and characteristicType
---
 R/utils_track_progress.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/utils_track_progress.R b/R/utils_track_progress.R
index 2fcba082..8f6c92ab 100644
--- a/R/utils_track_progress.R
+++ b/R/utils_track_progress.R
@@ -106,10 +106,12 @@ invalidFile <- function(trigger) {
 
 
 writeNarrativeDataFrame <- function(tadat) {
-  # sampleMedia and siteType need to be a single string for this part
+  # sampleMedia, siteType, characteristicName, and characteristicType need to be a single string for this part
   # Others? Automatic check?
   tadat$sampleMedia <- paste(tadat$sampleMedia, collapse = " ")
   tadat$siteType <- paste(tadat$siteType, collapse = " ")
+  tadat$characteristicType <- paste(tadat$characteristicType, collapse = " ")
+  tadat$characteristicName <- paste(tadat$characteristicName, 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)