r - シャイニーから renderDataTable 出力を png として保存するボタン

Question

光沢のあるデータテーブル (DT::renderDataTable) 出力を .png として保存する方法を知っている人はいますか? つまり、このボタンに似たボタンを作成したいですか?

たとえば、誰でもこのテーブルを png として保存するボタンを定義できますか。

---
output: html_document
runtime: shiny
---

```{r setup, echo=FALSE}
library(DT)

    DT::renderDataTable({
      datatable(iris) %>% formatStyle(
        'Sepal.Width',
        backgroundColor = styleInterval(3.4, c('gray', 'yellow'))
      )
    })

```