需要在每次点击shiny中的操作按钮后将航班名称附加到dataframe

library(shiny)

# 定义UI
ui <- fluidPage(
  titlePanel("航班名称追加示例"),
  sidebarLayout(
    sidebarPanel(
      actionButton("addFlight", "添加航班名称")
    ),
    mainPanel(
      tableOutput("flightTable")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output, session) {
  
  # 初始化一个空的DataFrame
  flights_df <- reactiveVal(data.frame(FlightName = character()))
  
  # 观察按钮点击事件
  observeEvent(input$addFlight, {
    # 假设有一个函数getNewFlightName()用于获取新的航班名称
    new_flight_name <- getNewFlightName()
    
    # 将新的航班名称追加到DataFrame
    flights_df(rbind(flights_df(), data.frame(FlightName = new_flight_name)))
  })
  
  # 输出DataFrame
  output$flightTable <- renderTable({
    flights_df()
  })
}

# 运行Shiny应用程序
shinyApp(ui = ui, server = server)

# 假设的函数，用于模拟获取新的航班名称
getNewFlightName <- function() {
  paste("Flight", sample(1000:9999, 1))
}