diff --git a/app/server.R b/app/server.R index 0ed5fde..3f3c2e5 100644 --- 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({