Display baseline cycling only for aggregate tabs.

ITHIM · Sep 20, 2016 · a2e85bc · a2e85bc
1 parent e3625ea
commit a2e85bc
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/app/server.R b/app/server.R
@@ -86,8 +86,12 @@ shinyServer(function(input, output, session){
   output$inBaselineCycling <- renderUI({
 
     input$inRegions
-    #idata <<- subset(idata, HHoldGOR_B02ID == input$inRegions)
-    HTML("Baseline Cycling (%): ", sessionData$baselineSummary[["% Cyclists in the Total Population"]], "\n")
+    input$conditionedPanels
+
+    if (input$conditionedPanels < 8)
+      HTML("Baseline Cycling (%): ", sessionData$baselineSummary[["% Cyclists in the Total Population"]], "\n")
+    else
+      HTML("")
   })
 
   plotTables <- reactive({