persistent-tidy-data-shiny.R

library(shiny)
library(tidyverse)

# data <- readRDS("persistent_data/data.RDS")
data <- as_tibble(mtcars) %>% head()

ui <- fluidPage(
  tableOutput("mytable"),
  actionButton("go", "filter it"),
  actionButton("save", "save it")
)

server <- function(input, output, session) {

  appdata <- reactiveVal(value = data)
  
  observeEvent(input$go, {
                new <- appdata() %>% 
                  filter(cyl == 6)
                  
                appdata(new)
                })
  
  output$mytable <- renderTable({ appdata() })
  
  observeEvent(input$save, {
    # appdata() %>% saveRDS("persistent_data/data.RDS")
  })
}

shinyApp(ui, server)