From 6c8aa4be34deb51218af55541789f48e4790018c Mon Sep 17 00:00:00 2001
From: David Mawdsley <david.mawdsley@manchester.ac.uk>
Date: Thu, 26 Jul 2018 10:28:17 +0100
Subject: [PATCH] Make graph interactive

---
 worked_example/app.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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()
    })
 }