闪亮：等待功能直到用户停止输入

Question

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

Warning: Error in twInterfaceObj$doAPICall: Forbidden (HTTP 403).

如何在最后输入的字母后约400ms后更改此功能才能调用函数？

这是我的闪亮代码：

ui.R

shinyUI(fluidPage(
    # Sidebar with a slider input for number of bins 
    sidebarLayout(
        sidebarPanel(
            textInput("new_hashtag", label = h4("Enter #Hashtag"), value = "#hello")
        )
    ),
    mainPanel(
        DT::dataTableOutput('mytable1')
    )
))

server.R

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