使用renderTable时删除列

library(shiny)

ui <- fluidPage(
  tableOutput("myTable")
)

server <- function(input, output) {
  output$myTable <- renderTable({
    # 原始数据
    data <- data.frame(
      Name = c("Alice", "Bob", "Charlie"),
      Age = c(25, 30, 35),
      Gender = c("Female", "Male", "Male")
    )
    
    # 删除Gender列
    data_subset <- data[, !names(data) %in% "Gender"]
    
    # 返回表格
    data_subset
  })
}

shinyApp(ui, server)