Make data reactive

UoMResearchIT · Aug 9, 2018 · 4ee4c74 · 4ee4c74
1 parent 6c8aa4b
commit 4ee4c74
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/worked_example/app.R b/worked_example/app.R
@@ -48,10 +48,14 @@ ui <- fluidPage(
 # Define server logic required to draw a histogram
 server <- function(input, output) {
 
-   output$gapminderPlot <- renderPlot({
-      gapminder %>% 
+   plotData <- reactive({
+     gapminder %>% 
        filter(year == input$year) %>% 
-       filter(continent %in% input$continent) %>% 
+       filter(continent %in% input$continent)
+   })
+
+   output$gapminderPlot <- renderPlot({
+      plotData() %>% 
        produceGapminderPlot()
    })
 }