根据Shiny中的输入更新R数据表中的列

library(shiny)
library(dplyr)

# 创建Shiny应用程序的UI
ui <- fluidPage(
  textInput("input_text", "输入文本:", ""),
  tableOutput("output_table")
)

# 创建Shiny应用程序的服务器
server <- function(input, output) {
  
  # 监听输入控件的变化，并更新数据表
  observeEvent(input$input_text, {
    # 从输入控件中获取输入的文本
    input_text <- input$input_text
    
    # 创建或加载数据表（这里使用了一个简单的示例数据表）
    data <- data.frame(name = c("Alice", "Bob", "Charlie"),
                       age = c(25, 30, 35),
                       stringsAsFactors = FALSE)
    
    # 使用mutate()函数更新数据表中的列
    data <- data %>% mutate(input_text = input_text)
    
    # 将更新后的数据表传递给输出控件
    output$output_table <- renderTable(data)
  })
}

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