From d4e465576427941d74d2e6b711e4b56b9772c7df Mon Sep 17 00:00:00 2001
From: schuemie <schuemie@ohdsi.org>
Date: Fri, 5 Oct 2018 02:29:04 -0400
Subject: [PATCH] Fixing duplicate entries in main table

---
 LegendBasicViewer/server.R | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/LegendBasicViewer/server.R b/LegendBasicViewer/server.R
index a29d4196..0c7911c4 100644
--- a/LegendBasicViewer/server.R
+++ b/LegendBasicViewer/server.R
@@ -55,8 +55,13 @@ shinyServer(function(input, output, session) {
   })
 
   resultSubset <- reactive({
-    targetId <- unique(exposures$exposureId[exposures$exposureName == input$target])
-    comparatorId <- unique(exposures$exposureId[exposures$exposureName == input$comparator])
+    targetId <- unique(exposures$exposureId[exposures$exposureName == input$target &
+                                              exposures$exposureGroup == input$exposureGroup])
+    comparatorId <- unique(exposures$exposureId[exposures$exposureName == input$comparator &
+                                                  exposures$exposureGroup == input$exposureGroup])
+    if (length(targetId) == 0 || length(comparatorId) == 0) {
+      return(NULL)
+    }
     outcomeId <- unique(outcomes$outcomeId[outcomes$outcomeName == input$outcome])
     analysisIds <- analyses$analysisId[analyses$description %in% input$analysis]
     databaseIds <- input$database