Shiny: дождитесь функции, пока пользователь не перестанет печатать

Question

У меня есть пользователи, вызывающие функции при наборе текста. Проблема в том, что он делает вызов для каждой набираемой буквы, и отображается ошибка, если текстовое поле пусто даже в течение 1 мс.

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

Как я могу изменить это, чтобы вызывать функцию только через 400 мс после последней набранной буквы?

Вот мой блестящий код:

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))
    })        
})