Add reactive historicData

UoMResearchIT · Aug 9, 2018 · be77161 · be77161
1 parent d3fc11f
commit be77161
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/worked_example/app.R b/worked_example/app.R
@@ -53,6 +53,12 @@ server <- function(input, output) {
    # Create a reactive value to store the country we seleect
    activeCountry <- reactiveVal()
 
+   historicData <- reactive({
+      gapminder %>% 
+         filter(year <= input$year) %>% 
+         filter(country == activeCountry()) # activeCountry is reactive, its value is accessed using activeCountry()
+   })
+
    # Update the value of activeCountry() when we detect an input$plotClick event
    # (Note how we update a reactiveVal() )
    observeEvent(input$plotClick,