DT包 datatable()的使用

DT包 datatable()的使用

library(DT )
ls(package:DT )
datatable(
  mtcars, 
  extensions = c('Buttons','FixedColumns','RowGroup'), # 依次为按钮(用于下载，复制等) ，固定列,分组，滚动
  options = list(
    dom = 'Bfrtip',
    buttons = c('copy', 'csv', 'excel', 'pdf', 'print'), # 按钮选择
    scrollX = TRUE, # x轴滚动
    fixedColumns = list(leftColumns = 2, rightColumns = 1), # 固定指定列
    rowGroup = list(dataSrc = 2) ))

# 1 -----------------------------------------------------------------------

vignette('DT', package = 'DT')

# some boring edge cases for testing purposes
m = matrix(nrow = 0, ncol = 5, dimnames = list(NULL, letters[1:5]))
datatable(m)  # zero rows
datatable(as.data.frame(m))

m = matrix(1, dimnames = list(NULL, 'a'))
datatable(m)  # one row and one column
datatable(as.data.frame(m))

m = data.frame(a = 1, b = 2, c = 3)
datatable(m)
datatable(as.matrix(m))

# dates
datatable(data.frame(
  date = seq(as.Date("2015-01-01"), by = "day", length.out = 5), x = 1:5
))
datatable(data.frame(x = Sys.Date()))
datatable(data.frame(x = Sys.time()))