R数据表自定义按钮

我对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”按钮时，什么都没有发生。

您必须替换

function (e, dt, button, config)

与

function (e, dt, node, config)