Не удается сгенерировать отчет R-Markdown в ShinyApp

Question

Я создал ShinyApp, где все отлично работает.Я хотел бы добавить downloadHandler для создания отчета по Markdown, который содержит выбранный график.Во-первых, я загружаю файл в ShinyApp.Затем я выбираю переменные для построения графика, используя checkBoxInput.Следующим шагом будет использование выпадающего списка для выбора между графиком Lattice / ggplot2, и, наконец, я бы хотел скачать его и получить.К сожалению, каждый раз, когда я пытаюсь загрузить его, я получаю пустую страницу Markdown.Неважно, какой формат отчета будет создан.Я хотел бы получить подходящую логику для этой задачи.Я испробовал оба решения, которые нашел в сети:

output$downloadReport <- downloadHandler(
filename = function() {
  paste('my-report', sep = '.', switch(
    input$format, PDF = 'pdf', HTML = 'html', Word = 'docx')
  )
},

content = function(file) {
  src <- normalizePath('report.Rmd')

  owd <- setwd(getwd())
  on.exit(setwd(owd))
  file.copy(src, 'report.Rmd', overwrite = TRUE)

  out <- render('report.Rmd', switch(
    input$format,
    PDF = pdf_document(), HTML = html_document(), Word = word_document()
  ))
  file.rename(out, file)
})

и

output$report <- downloadHandler(
 filename = "report.html",

  content = function(file) {
   tempReport <- file.path(getwd(), "report.Rmd")
    file.copy("report.Rmd", tempReport, overwrite = TRUE)

     params <- list(graph = input$graph, colsel = input$colsel)
  rmarkdown::render(tempReport, output_file = file,
                    params = params,
                    envir = new.env(parent = globalenv())

Поэтому я создал шаблоны report.rmd для своего приложения, чтобы заполнить его.Я пытался положить много вещей внутри, но ни одна из этих работ.Я скучаю по логике для шаблона?

---
title: "Untitled"
author: "user"
date: "date"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r plot, echo=TRUE}
plotdata <- reactive({
  d <- dataIn()[, c(req(input$colsel))]
  d <- melt(d, id.vars="Numer")
})

plot1 <- reactive({
  dotplot(value~Numer, data=plotdata(), auto.key = list(space="right", title="Types"), groups=variable)
})  

plot2 <- reactive({
  ggplot(plotdata(), aes(x=Numer, y=value, color=variable)) + 
    geom_point()
})  

graphInput <- reactive({
  switch(input$graph,
         "Lattice" = plot1(),
         "ggplot2" = plot2())
})
renderPlot({ 
    graphInput()
  })
})
```

Answer 1

Хорошо, я наконец понял!Во-первых, нам нужно запустить блестящее приложение, используя функцию «Запустить внешний».Во-вторых, нам не нужен тот беспорядок, который я сделал в шаблоне.Просто:

---
title: "Untitled"
author: "user"
date: "date"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(shiny)
library(ggplot2)
library(lattice)
library(markdown)

```
```{r plot}

plot1()

plot2()

graphInput()
```

Где plot1 (), plot2 () и graphinput () представляют мои:

plot1 <- reactive({
dotplot(value~Numer,data=plotdata(), auto.key = list(space="right", title="WWW"), groups=variable)
})  

plot2 <- reactive({
ggplot(plotdata(), aes(x=Numer, y=value, color=variable)) + 
  geom_point()
})  

graphInput <- reactive({
  switch(input$graph,
         "Lattice" = plot1(),
         "ggplot2" = plot2()
)
})