R Datatables自定义按钮

我使用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”按钮时，没有任何反应。