R-shiny app- DT 包列信息

要在R Shiny应用程序中使用DT包显示列信息，您可以按照以下步骤操作：

1. 安装和加载必要的包：

install.packages("shiny")
install.packages("DT")

library(shiny)
library(DT)

2. 创建一个包含列信息的数据框：

data <- data.frame(Name = c("John", "Jane", "Mike"),
                   Age = c(25, 30, 35),
                   Gender = c("Male", "Female", "Male"))

3. 创建Shiny应用程序：

ui <- fluidPage(
  DTOutput("datatable")
)

server <- function(input, output) {
  output$datatable <- renderDT({
    datatable(data, options = list(columnDefs = list(list(visible = FALSE, targets = "_all")))) 
  })
}

shinyApp(ui, server)

在上面的代码中，我们首先创建了一个包含列信息的数据框。然后，我们创建了一个Shiny应用程序，其中包含一个DT输出，用于显示数据表。

在服务器端，我们使用renderDT函数将数据框渲染为DT表格。在options参数中，我们使用columnDefs选项将所有列设置为不可见。这将隐藏列信息。

最后，我们使用shinyApp函数将UI和服务器组合起来，并运行Shiny应用程序。

当您运行这个Shiny应用程序时，您将看到一个带有隐藏列信息的DT表格。