如何在shinyR中使用R中的算术表达式对数据集进行变异

install.packages("shiny")

library(shiny)
shinyApp(
  ui = fluidPage(
    # 在这里添加用户界面元素
  ),
  server = function(input, output) {
    # 在这里添加服务器端代码
  }
)

ui = fluidPage(
  textInput("expressionInput", "输入算术表达式：")
)

server = function(input, output) {
  mutatedData <- reactive({
    expression <- input$expressionInput
    # 在这里使用算术表达式对数据集进行变异
    # 返回变异后的数据集
  })
  
  output$tableOutput <- renderTable({
    mutatedData()
  })
}

ui = fluidPage(
  textInput("expressionInput", "输入算术表达式："),
  tableOutput("tableOutput")
)