diff --git a/worked_example/app.R b/worked_example/app.R
index 0b8f707..ec735c0 100644
--- a/worked_example/app.R
+++ b/worked_example/app.R
@@ -50,7 +50,8 @@ server <- function(input, output) {
    
    output$gapminderPlot <- renderPlot({
       gapminder %>% 
-       filter(year == 2000) %>% 
+       filter(year == input$year) %>% 
+       filter(continent %in% input$continent) %>% 
        produceGapminderPlot()
    })
 }