379 [Bug]: integration test failure (#381)

close #379 

small change in teal led to error during filtering.

thank you for the review

tests/testthat/test-pca.R

@@ -62,18 +62,19 @@ test_that("pca module works as expected in the test app", {
   )
 
   # Add a gene filter and deselect everything and check that it does not crash.
-  app$set_inputs(!!ns2("add-MAE-hd1-row_to_add") := "symbol")
+  app$set_inputs(!!ns2("add-MAE-hd1-row_to_add") := "chromosome_name")
   app$wait_for_idle()
-  app$set_inputs(!!ns2("active-MAE-hd1-MAE_symbol_hd1_subset-inputs-selection_open") := TRUE, allow_no_input_binding_ = TRUE)
-  app$set_inputs(!!ns2("active-MAE-hd1-MAE_symbol_hd1_subset-inputs-selection") := character())
-  app$set_inputs(!!ns2("active-MAE-hd1-MAE_symbol_hd1_subset-inputs-selection_open") := FALSE, allow_no_input_binding_ = TRUE)
+  app$set_inputs(!!ns2("active-MAE-hd1-MAE_chromosome_name_hd1_subset-inputs-selection_open") := TRUE, allow_no_input_binding_ = TRUE)
+  app$set_inputs(!!ns2("active-MAE-hd1-MAE_chromosome_name_hd1_subset-inputs-keep_na-value") := FALSE)
+  app$set_inputs(!!ns2("active-MAE-hd1-MAE_chromosome_name_hd1_subset-inputs-selection") := character())
+  app$set_inputs(!!ns2("active-MAE-hd1-MAE_chromosome_name_hd1_subset-inputs-selection_open") := FALSE, allow_no_input_binding_ = TRUE)
 
   app$wait_for_idle()
   res <- app$get_value(output = ns("test_pca"))
   expect_match(res$message, "No genes or samples included in this experiment, please adjust filters")
 
   # Remove filters
-  app$click(ns2("active-MAE-hd1-MAE_symbol_hd1_subset-remove"))
+  app$click(ns2("active-MAE-hd1-MAE_chromosome_name_hd1_subset-remove"))
 
   # Update the tab selection.
   app$set_inputs(!!ns("tab_selected") := "PC and Sample Correlation")