如何让我的操作按钮等到点击更新文本 output？ Shiny R

Question

我有一个 shiny 应用程序，它允许用户输入一个字符串来搜索来自政客的约 50,000 条推文的数据集。 output 有两个部分：

1. ggplot geom_col 图表，其中 x = 日期，y = 该术语的使用频率（按周分类）
2. 一个 htmlOutput() 显示与该词匹配的推文

我的问题
由于这是一个大型数据集，我想阻止程序在仅输入 1 个字母后自动显示 htmlOutput（它显示的结果太多并导致加载时间变慢）。 我在 htmlOutput() 周围包裹了一个 actionButton()，它适用于第一个搜索实例。

但是，如果您从输入框中删除文本，则它会立即开始更新文本，而不是等待下一次单击。 这通常会使应用程序崩溃，因为程序搜索太多太快。 我喜欢让 ggplot 自动更新，因为这不会让程序陷入太多困境。

如何让 actionButton 等到再次单击以执行操作？ 我认为这是可能的，因为它适用于第一个实例。 如果我能澄清任何事情，请告诉我，我是新来的，很乐意提供我可能忘记的任何其他信息！

如果您想查看实际程序并更好地了解我正在谈论/概念化的问题，我已经在这里发布了它： https://gefbyu.shinyapps.io/shiny/

这是我的代码的基本结构：

library(shiny)
library(ggplot2)
library(dplyr)

# Define UI ----
ui <- fluidPage(
  
  textInput("search", label = "enter search term"),
  actionButton("view_text", "click to view text"),
    
    mainPanel(plotOutput("plot"), htmlOutput("selected_text"))
    )

# Define server logic ----
server <- function(input, output, session) {
    
  output$plot <- renderPlot({
    search <- input$search
    
    tweet_data <- my_data
                          
    getPlot <- grep(search, tweet_data$y, fixed = TRUE)
    
    plotData <- data.frame(x = tweet_data$x[getPlot],
                           y = tweet_data$y[getPlot])
    
    ggplot(plotData, aes(x = x, y = y)) +
      geom_col()
    
  })
  
  observeEvent(input$view_text, {
    
    output$selected_text <- renderPrint({
    
      tweet_data <- my_data
      search <- input$search
      
      getText <- grep(search, tweet_data$y, fixed = TRUE)
      printText <- tweet_data$y[getText]
      
      return(HTML(printText, sep='<br/>'))
    })
  })
}

# Run the app ----
shinyApp(ui = ui, server = server)