使用If处理输入，并使用Shiny R处理colname

if (condition) {
  # 执行操作
} else {
  # 执行其他操作
}

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("colname", "输入列名："),
      actionButton("process", "处理")
    ),
    mainPanel(
      tableOutput("output")
    )
  )
)

server <- function(input, output) {
  data <- reactive({
    # 假设有一个数据框df
    df <- data.frame(
      col1 = c(1, 2, 3),
      col2 = c("A", "B", "C")
    )
    
    # 根据输入的列名处理数据
    if (input$colname == "重命名") {
      colname <- "new_colname"
      # 重命名列
      df <- rename(df, !!colname := col1)
    } else if (input$colname == "提取特定列") {
      # 提取特定列
      df <- select(df, col1)
    } else if (input$colname == "删除列") {
      # 删除列
      df <- select(df, -col1)
    }
    
    return(df)
  })
  
  output$output <- renderTable({
    data()
  })
}

shinyApp(ui, server)