数据库查询的取消按钮/Shiny应用程序中的进度条？

在Shiny应用程序中添加取消按钮和进度条可以通过以下步骤实现：

1. 在Shiny应用程序的UI部分添加一个取消按钮和一个进度条组件。例如：

library(shiny)

ui <- fluidPage(
  titlePanel("数据库查询的取消按钮和进度条"),
  
  sidebarLayout(
    sidebarPanel(
      actionButton("cancelBtn", "取消查询")
    ),
    
    mainPanel(
      withProgress(
        progress = "progress", 
        value = 0,
        label = "正在查询数据库...",
        style = "old"
      )
    )
  )
)

2. 在Shiny应用程序的服务器部分，使用observeEvent函数来监听取消按钮的点击事件，并在点击时执行相应的操作。例如，你可以停止数据库查询或设置一个标志来中断查询。以下是一个示例代码：

server <- function(input, output) {
  # 数据库查询的操作函数
  performDatabaseQuery <- function() {
    for (i in 1:10) {
      Sys.sleep(1) # 模拟数据库查询
      # 检查取消按钮是否被点击
      if (input$cancelBtn > 0) {
        # 如果取消按钮被点击，中断查询
        return(NULL)
      }
      
      # 更新进度条
      withProgress(
        session = session,
        name = "progress",
        value = i,
        label = "正在查询数据库...",
        style = "old"
      )
    }
    
    # 查询完成后的操作
    # ...
  }
  
  # 监听取消按钮的点击事件
  observeEvent(input$cancelBtn, {
    # 停止数据库查询或设置标志来中断查询
    # ...
  })
  
  # 在Shiny应用程序启动时执行数据库查询
  onStartup(function() {
    performDatabaseQuery()
  })
}

shinyApp(ui, server)

在上面的示例代码中，performDatabaseQuery函数模拟了一个长时间运行的数据库查询操作。在每次循环中，我们检查取消按钮是否被点击，并使用withProgress函数更新进度条的值。当取消按钮被点击时，我们返回NULL来中断查询。你可以根据实际需求来停止数据库查询或设置一个标志来中断查询。

请注意，上述代码只是给出了一个示例，你需要根据自己的需求来调整和完善代码。