Make graph interactive

UoMResearchIT · Aug 9, 2018 · 6c8aa4b · 6c8aa4b
1 parent 06e341b
commit 6c8aa4b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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()
    })
 }