将 renderDataTable 输出保存为来自闪亮的 png 的按钮

Question

有谁知道我将如何将闪亮的数据表 (DT::renderDataTable) 输出保存为 .png？即，我想创建一个按钮，类似于this button?

例如，任何人都可以定义一个按钮来将此表格保存为 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'))
      )
    })

```

Answer 1

您的主要任务是如何将表格转换为 PDF 格式。 Here aretwo SO questions 提供有关如何执行此操作的答案。

假设您使用这些参考问题来解决该问题（这与闪亮无关）。我将接近下一步的方法是首先返回您从制作 PDF 的函数创建的 PDF 的路径

createPDF <- function(df) {
  # create a pdf
  return(pdf_file)
}

然后在 Shiny 中，您将使用 downloadHandler，您只需将该 PDF 复制到您提供给 downloadHandler 的文件名中。像这样的：

### in UI
downloadButton('downloadPdf', 'Download table')

### in server
output$downloadPdf <- downloadHandler(
    filename = function() {
      "table.pdf"
    },
    content = function(file) {
      file <- createPDF(df)
      file.copy(file, "table.pdf")  # or something like this
    }
)

我还没有尝试过，但这就是我会尝试的