r - slider 输入延迟

Question

有没有办法制作 sliderInput 等待几秒钟，然后它会更改其相应的input$多变的？我有一个控制需要在值更改时重新渲染的图表的条形图。我知道使用提交按钮的解决方法，我希望避免需要它。

Answer 1

debounce就是为此而生的，而且更简单。修改以前的回答者的代码:

library(shiny)
library(magrittr)
shinyApp(
  server = function(input, output, session) {
      d_mean <- reactive({
        input$mean
      }) %>% debounce(1000)
      output$plot <- renderPlot({
          x <- rnorm(n=1000, mean=d_mean(), sd=1)
          plot(density(x))
      })
  },
  ui = fluidPage(
    sliderInput("mean", "Mean:", min = -5, max = 5, value = 0, step= 0.1),
    plotOutput("plot")
  )
)