R Datatables自定义按钮

library(DT)

# 创建一个简单的数据框
data <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Age = c(25, 30, 35)
)

# 定义一个自定义按钮函数
customButton <- function(id, ...) {
  tags$button(id = id, class = "btn btn-primary", type = "button", ...)
}

# 创建 Datatable，并添加自定义按钮
datatable(data, extensions = 'Buttons', options = list(
  dom = 'Bfrtip',
  buttons = list(
    list(extend = 'csv', text = '导出 CSV'),
    list(extend = 'excel', text = '导出 Excel'),
    list(text = '自定义按钮', action = DT::JS("function(e, dt, node, config) {
      alert('你点击了自定义按钮！');
    }"))
  )
)) %>%
  formatStyle(columns = everything(), `text-align` = 'center') %>%
  tags$head(tags$style(".btn { margin-right: 5px; }"))