在RShiny中设置数据表的格式

library(shiny)
library(DT)

ui <- fluidPage(
  dataTableOutput("table")
)

server <- function(input, output) {
  output$table <- renderDataTable({
    datatable(
      iris,
      options = list(
        pageLength = 10,  # 设置每页显示的行数
        lengthMenu = c(5, 10, 15),  # 设置每页显示行数的选项
        searching = TRUE,  # 启用搜索功能
        ordering = TRUE,  # 启用排序功能
        columnDefs = list(
          list(
            targets = "_all",
            className = "dt-center"  # 设置所有列的文本居中显示
          )
        )
      ),
      # 设置第一列的文本颜色为红色
      formatStyle(columns = 1, color = "red"),
      # 设置第二列的背景颜色为浅灰色
      formatStyle(columns = 2, backgroundColor = "lightgray"),
      # 将第三列的数值格式化为货币格式
      formatCurrency(columns = 3, currency = "$"),
      # 将第四列的数值格式化为百分比格式
      formatPercentage(columns = 4),
      # 将第五列的数值进行四舍五入
      formatRound(columns = 5, digits = 2),
      # 将第六列的日期时间格式化为"YYYY-MM-DD HH:MM:SS"格式
      formatDatetime(columns = 6, format = "YYYY-MM-DD HH:MM:SS"),
      # 将第七列的时间格式化为"HH:MM:SS"格式
      formatTime(columns = 7, format = "HH:MM:SS"),
      # 将第八列的数值格式化为两位有效数字
      formatSignif(columns = 8, digits = 2),
      # 将第九列的数值格式化为指定的字符格式
      formatC(columns = 9, format = "0x%04X")
    )
  })
}

shinyApp(ui, server)