闪亮的 Rmarkdown html 下载

问题描述

在我的 Rmarkdownfile 中，我想将我的 .rmd 下载为 html 文件，但出现以下错误。

警告：文件错误。无法打开连接。

我认为是因为 source(...) 包含的外部文件，但我不知道为什么。在外部文件中，我连接到一个数据库。

---
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r setup,include=FALSE}
library(flexdashboard)
library(rmarkdown)
source('R/load_data.R')
```

```{r}
output$export_btn<- downloadHandler(
         filename = "report.html",content = function(file) {
        tempReport <- file.path(tempdir(),"test.Rmd")
        file.copy("test.Rmd",tempReport,overwrite = TRUE)
        out<-render(tempReport,html_document())
        file.rename(out,file)
     }
    )
```

解决方法

您正在将 file 传递给您的函数 content = function(file)。 file 是默认的 R 函数。您的意思是将 filename 传递给函数吗？

output$export_btn<- downloadHandler(
         filename = "report.html",content = function(filename) {
        tempReport <- file.path(tempdir(),"test.Rmd")
        file.copy("test.Rmd",tempReport,overwrite = TRUE)
        out<-render(tempReport,html_document())
        file.rename(out,filename)
     }
    )