fix index event breakdown tab

OHDSI · Sep 28, 2023 · e762334 · e762334
1 parent c0bad46
commit e762334
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/R/cohort-diagnostics-main-ui.R b/R/cohort-diagnostics-main-ui.R
@@ -16,7 +16,6 @@
 
 cdUiControls <- function(ns) {
   panels <- shiny::tagList(
-    shiny::textOutput(outputId = ns("tabSelected")),
     shiny::conditionalPanel(
       condition = "
       input.tabs == 'databaseInformation'",

diff --git a/R/cohort-diagnostics-main.R b/R/cohort-diagnostics-main.R
@@ -469,7 +469,7 @@ cohortDiagnosticsServer <- function(id,
         selection["Orphan Concepts"] <- "orphanConcepts"
 
       if ("indexEventBreakdown" %in% dataSource$enabledReports)
-        selection["Index Event Breakdown"] <- "indexEventBreakdown"
+        selection["Index Event Breakdown"] <- "indexEvents"
 
       shiny::updateSelectInput(
         inputId = "tabs",
@@ -626,8 +626,6 @@ cohortDiagnosticsServer <- function(id,
       return(input$targetCohort)
     })
 
-    output$tabSelected <- shiny::renderText(input$tabs)
-
     if ("cohort" %in% enabledReports) {
       cohortDefinitionsModule(id = "cohortDefinitions",
                               dataSource = dataSource,
@@ -666,7 +664,7 @@ cohortDiagnosticsServer <- function(id,
     }
 
     if ("indexEventBreakdown" %in% enabledReports) {
-      indexEventBreakdownModule("indexEvents",
+      indexEventBreakdownModule(id = "indexEvents",
                                 dataSource = dataSource,
                                 selectedCohort = selectedCohort,
                                 targetCohortId = targetCohortId,