r - 我不明白去抖是如何工作的

Question

从下面的示例中，我希望用户输入的显示仅每 2 秒(2000 毫秒)更新一次。但事实并非如此，它的更新速度与我不包含去抖语句时一样快。

if (interactive()) {
      options(device.ask.default = FALSE)

ui <- fluidPage(
      textInput(inputId = "text",
                label = "To see how quickly..."),
      textOutput(outputId = "text")
)

server <- function(input, output, session) {
      text_input <- reactive({
            input$text
      })

      debounce(text_input, 2000)

      output$text <- renderText({
            text_input()
      })
}
shinyApp(ui, server)
}

Answer 1

您必须分配 debounce() 调用的结果并在输出中使用它:

server <- function(input, output, session) {
    text_input <- reactive({
        input$text
    })

    text_d <- debounce(text_input, 2000)

    output$text <- renderText({
        text_d()
    })
}