在shiny中将textInput选项添加到我的数据框中，并且能够再次选择它，而不是重新键入

library(shiny)

ui <- fluidPage(
  titlePanel("在shiny中将textInput选项添加到数据框中"),
  sidebarLayout(
    sidebarPanel(
      textInput("input_text", "输入文本：", value = ""),
      actionButton("add_button", "添加到数据框")
    ),
    mainPanel(
      tableOutput("data_table")
    )
  )
)

server <- function(input, output) {
  data <- reactiveValues(df = data.frame(Text = character(0)))
  
  observeEvent(input$add_button, {
    text <- input$input_text
    if (text != "") {
      data$df <- rbind(data$df, data.frame(Text = text))
    }
  })
  
  output$data_table <- renderTable({
    data$df
  })
}

shinyApp(ui, server)