R 闪亮：等待函数，直到用户停止键入

我让用户在键入时调用函数。问题是，它会对输入的每个字母进行调用，如果textbox为空，即使持续1ms，也会显示错误

警告：twInterfaceObj$doapCall中的错误：禁止（HTTP 403）。

如何更改此设置，使其仅在最后一个键入的字母大约400毫秒后进行函数调用

以下是我的代码：

用户界面

服务器.R

shinyServer(function(input, output, session) {
    output$mytable1 <- DT::renderDataTable({
        df <- searchTwitter(as.character(input$new_hashtag)
        DT::datatable(twListToDF(df))
    })        
})

shinyServer（功能（输入、输出、会话）{
输出$mytable1您有两个不同的选项：1）强制用户单击提交按钮，2）更新JavaScript以侦听输入或按键之间的暂停。第二个选项是更好的用户体验，但您需要一些额外的JavaScript知识。是的，这可能是一个选项，但我也在R中寻找一些可以帮到我的东西。请参阅。
Debounce
可能只是be你在寻找什么。你有两个不同的选项：1）强制用户单击提交按钮，2）更新JavaScript以监听输入或按键之间的暂停。第二个选项是更好的用户体验，但你需要一些额外的JavaScript知识。是的，这可以是一个选项，但我也在R中寻找一些可以请在这里告诉我。请参阅。
Debounce
可能正是您要找的。
shinyServer(function(input, output, session) {
    output$mytable1 <- DT::renderDataTable({
        df <- searchTwitter(as.character(input$new_hashtag)
        DT::datatable(twListToDF(df))
    })        
})