delayed checkbox

delayed-checkbox.R

library(shiny)
library(magrittr)
library(ggplot2)

ui <- fluidPage(
  checkboxGroupInput("checkbox", "Variables to show:",
                     c("psavert", "uempmed", "unemploy")),
  plotOutput("plot")
)

server <- function(input, output, session) {
  checkbox <- reactive({
    input$checkbox
  })
  
  checkbox_delayed <- checkbox %>% debounce(1000)
  
  output$plot <- renderPlot({
     p <- ggplot(economics, aes(x = date))
     lapply(checkbox_delayed(), function(z) {p <<- p + geom_line(aes_string(y = z)) })
     p
  })
  
}

shinyApp(ui, server)