diff --git a/worked_example/app.R b/worked_example/app.R
index 68bc592..9673d3a 100644
--- 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(({