R 数据表自定义按钮

Question

我对 R 中的 DT 包相对较新，但我正在尝试在单击按钮时自定义 CSV 文件的输出。我一直在遵循这些示例中的最后一个，但我的代码不起作用。这是我的.Rmd 文件：

---
title: "Untitled"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(DT)
```

```{r results='hide'}
dt <-
datatable(iris,
extensions = 'Buttons',
options = list(pageLength = 5, dom = 'Blfrtip', buttons = list(
list(
extend = 'csv',
text = 'Create Custom CSV',
action = DT::JS(
"function (e, dt, button, config) {
// Eventually process some data
$.fn.dataTable.ext.buttons.csvHtml5.action.call(this, e, dt, node, config);
}"
)
)
)))
```
`r dt`

这个想法是我对数据进行一些处理，然后简单地调用默认的csvHtml5操作。在我的示例中，我只是想返回默认的 csv 操作，但是当我单击针织 HTML 文件中的"创建自定义 csv"按钮时，没有任何反应。

Answer 1

你必须替换

function (e, dt, button, config)

跟

function (e, dt, node, config)