r - Shiny Rmarkdown html download

Question

In my Rmarkdownfile I want to download my .rmd as a html file but I get the following error.

Warning: Error in file. Cannot open the connection.

I think it's because of the external file included by source(...), but I don't know why. In the external file I make a connection to a db.

---
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)
     }
    )
```

question from:https://stackoverflow.com/questions/66052182/shiny-rmarkdown-html-download

Answer 1

You are passing file to your function content = function(file). file is a default R function. Did you mean to pass filename to the function instead?

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)
     }
    )