Auto update test names for certain projects

For projects where "-" is used in MetaData, but "vs" is used in results_long for tests.
interactivereport · Mar 13, 2021 · ba5c8ad · ba5c8ad
1 parent 19d0af1
commit ba5c8ad
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/inputdata.R b/inputdata.R
@@ -147,7 +147,8 @@ DataReactive <- reactive({
                  }
                  tests  <-
                    as.character(MetaData$ComparePairs[MetaData$ComparePairs != ""])
-                 #tests <-  gsub("-", "vs", tests)
+		 comp_tests=as.character(unique(results_long$test))
+		 if (!all(tests %in% comp_tests) ) { tests <-  gsub("-", "vs", tests) } #for projects where - used in MetaData, "vs" used in results_long
                  if (length(tests) == 0) {
                    tests = unique(as.character(results_long$test))
                  }