fix for time distributions module not showing in CD

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

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/R/cohort-diagnostics-main-ui.R b/R/cohort-diagnostics-main-ui.R
@@ -16,6 +16,7 @@
 
 cdUiControls <- function(ns) {
   panels <- shiny::tagList(
+    shiny::textOutput(outputId = ns("tabSelected")),
     shiny::conditionalPanel(
       condition = "
       input.tabs == 'databaseInformation'",
@@ -90,7 +91,7 @@ cdUiControls <- function(ns) {
       condition = "input.tabs == 'cohortCounts' |
       input.tabs == 'cohortOverlap' |
       input.tabs == 'incidenceRates' |
-      input.tabs == 'timeDistributions'",
+      input.tabs == 'timeDistribution'",
       ns = ns,
       shinyWidgets::pickerInput(
         inputId = ns("cohorts"),
@@ -230,8 +231,8 @@ cohortDiagnosticsView <- function(id = "DiagnosticsExplorer") {
       ),
       shiny::conditionalPanel(
         ns = ns,
-        condition = "input.tabs == 'timeDistributions'",
-        timeDistributionsView(ns("timeDistributions"))
+        condition = "input.tabs == 'timeDistribution'",
+        timeDistributionsView(id = ns("timeDistributions"))
       ),
       shiny::conditionalPanel(
         ns = ns,

diff --git a/R/cohort-diagnostics-main.R b/R/cohort-diagnostics-main.R
@@ -626,6 +626,8 @@ cohortDiagnosticsServer <- function(id,
       return(input$targetCohort)
     })
 
+    output$tabSelected <- shiny::renderText(input$tabs)
+
     if ("cohort" %in% enabledReports) {
       cohortDefinitionsModule(id = "cohortDefinitions",
                               dataSource = dataSource,