无法基于另一列R Shiny在dataframe中创建新列

library(shiny)
library(dplyr)

ui <- fluidPage(
  # UI组件
)

server <- function(input, output, session) {
  # 读取数据
  data <- reactive({
    # 从文件或其他数据源中读取数据，并返回一个数据框
  })
  
  # 创建触发器
  observeEvent(data(), {
    # 在数据发生变化时执行以下操作
    
    # 创建新列
    data <- data() %>%
      mutate(new_column = old_column * 2)  # 假设要将old_column的值乘以2赋给新列new_column
    
    # 更新数据
    # 可以选择将更新后的数据存储在一个新的reactive对象中，以便在其他地方使用
    # 例如：updated_data <- reactive({ data })
  })
  
  # 其他逻辑和输出
}

shinyApp(ui, server)