如何在执行ShinyFileChoose处理时停止处理，直到选择文件为止

library(shiny)

ui <- fluidPage(
  actionButton("chooseFile", "选择文件"),
  textOutput("fileInfo")
)

server <- function(input, output, session) {
  fileSelected <- FALSE
  
  observeEvent(input$chooseFile, {
    showModal(modalDialog(
      title = "选择文件",
      fileInput("file", "选择一个文件"),
      footer = tagList(
        actionButton("cancel", "取消")
      )
    ))
  })
  
  observeEvent(input$file, {
    # 文件选择完成后执行的操作
    fileSelected <<- TRUE
    removeModal()
  })
  
  observeEvent(input$cancel, {
    # 取消文件选择操作
    removeModal()
  })
  
  output$fileInfo <- renderText({
    if (fileSelected) {
      # 执行文件处理操作
      "文件处理完成！"
    } else {
      # 停止处理，直到文件选择完成
      "等待选择文件..."
    }
  })
}

shinyApp(ui, server)