Shiny: Restart/break rendering of output when another input is changed [duplicate] - r

Question

This question already has an answer here:
Can I let Shiny wait for a longer time for numericInput before updating?
(1 answer)
Closed 5 years ago.
In my app I've got an output depending on many inputs. Whenever one of the inputs is changed shiny refreshes the output which takes some long time. The problem occurs when I want to change more than one input, because I have to wait X times to get correct output. Is there a way to break the refreshing of the reactive/output if another input was changed?
In this simple example:
output$distPlot depends on input$bins and input$col. Every change in inputs takes 3 seconds to refresh a histogram, so when I want to change both of them I have to wait 6 seconds. What I want to do is break existing refreshing if another input change was made.
ui
library(shiny)
shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30),
selectInput("col","Color",
choices = c("green","red","blue"),selected = "green")
),
mainPanel(
plotOutput("distPlot")
)
)
))
server
library(shiny)
shinyServer(function(input, output) {
output$distPlot <- renderPlot({
x <- faithful[, 2]
bins <- seq(min(x), max(x), length.out = input$bins + 1)
hist(x, breaks = bins, col = input$col, border = 'white')
Sys.sleep(3)
})
})
P.S. submitButton is not an option in my case, I'm looking for an option to reset/break rendering

Answer 1

Thanks to HubertL I found my answer. I had to create a reactive list with all my dependent inputs, and then use debounce on it, this way plot will change only once (if the time of changing the inputs will be less than 3000 mls in this example).
server:
library(shiny)
library(dplyr)
shinyServer(function(input, output,session) {
inputs_change<-reactive({
list(input$bins,input$col)
}) %>% debounce(3000)
output$distPlot <- renderPlot({
x <- faithful[, 2]
bins <- seq(min(x), max(x), length.out = inputs_change()[[1]] + 1)
hist(x, breaks = bins, col = inputs_change()[[2]], border = 'white')
Sys.sleep(3)
})
})