Show historic data for selected country

UoMResearchIT · Aug 9, 2018 · 89c591b · 89c591b
1 parent be77161
commit 89c591b
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/worked_example/app.R b/worked_example/app.R
@@ -79,8 +79,14 @@ server <- function(input, output) {
    })
 
    output$gapminderPlot <- renderPlot({
-      plotData() %>% 
-       produceGapminderPlot()
+      if (length(activeCountry()) == 0) { # No country selected; regular plot
+         plotData() %>% 
+            produceGapminderPlot() 
+      } else {
+         plotData() %>% 
+            produceGapminderPlot(makeSemiTransparent = TRUE) %>% 
+            addHistoricPlot(historicData())
+      }
    })
 
    output$clickData <- renderPrint(({