生成独立的动态报告，在r + Shiny中传递用户定义的参数

Question

我想要一个闪亮的应用程序，使用户能够根据用户定义的参数下载同一报表的多个版本。 以iris数据集为例，其想法是将为数据集的每个用户定义的子集（按Species ）生成一个报告。

我的报告代码（ test.Rmd ）如下：

---
title: "Parametrised report"
output: pdf_document
params:
   species: 
      label: Species
      input: select
      choices: [setosa, versicolor, virginica]
---

```{r}
df <- dplyr::filter(iris, Species %in% params$species)

library(ggplot2)
ggplot(df, aes(Sepal.Length, Petal.Length)) + geom_point()
```

我的app.R文件代码如下：

# Define the ui code
ui <- bootstrapPage(

selectInput('species', 'Select species:',
          paste(unique(iris$Species)),
          multiple = TRUE),

downloadButton('DownloadReport')

)


# Define the server code
server <- function(input, output) {

flower_species <- reactive({input$species})

observe({
lapply(flower_species(), function(i) {
  output$DownloadReport <- downloadHandler(

    filename = paste0('test_', i, '.pdf'),

    content = function(file) {

      out <- rmarkdown::render('test.Rmd', rmarkdown::pdf_document(), params = list(species = i))
      file.rename(out, file)

    }

  )
})
})

}

# Return a Shiny app object
shinyApp(ui = ui, server = server)

用户可以定义物种（ setosa, versicolor, virginica一个或多个），如果选择了几种，则报告子集不仅将数据子集包括在每个报告中的那个物种（ df <- dplyr::filter(iris, Species %in% params$species) ），但将为每个选定物种生成一个新报告。

我找到了此链接： 闪亮：动态UI-围绕downloadHandler的循环？ 它基于以下讨论： https : //groups.google.com/forum/#! msg/shiny-discuss/qGN3jeCbFRY/ xOW5qoVrr94J ，但这并不是我所需要的-我不需要多个下载按钮，但是一个下载按钮，可根据selectInput的输入创建独立的报告。 我希望上面显示的lapply方法行得通，但是只能创建一个报告。 另外，我尝试了一种循环方法，但是没有用（错误消息是我试图在响应式环境之外执行响应式操作）。

我很惊讶没有在任何地方找到它-似乎对许多闪亮的应用程序很有用。 任何帮助是极大的赞赏。

Answer 1

我设法获得了一个可用的版本，但在RStudio预览器中不起作用，您必须单击Show in browser按钮。

我认为您需要删除test.Rmd中YAML的某些部分，这些部分在这里不需要：

---
title: "Parametrised report"
output: pdf_document
params:
   species: setosa
---

```{r}
df <- dplyr::filter(iris, Species %in% params$species)

library(ggplot2)
ggplot(df, aes(Sepal.Length, Petal.Length)) + geom_point()
```

app.R看起来像这样：

library(magrittr)

# Define the ui code
ui <- bootstrapPage(

  selectInput('species', 'Select species:',
              paste(unique(iris$Species)),
              multiple = TRUE),

  downloadButton('DownloadReport')

)


# Define the server code
server <- function(input, output) {

  flower_species <- reactive({input$species})

  output$DownloadReport <- downloadHandler(
    filename = "test.zip",
    content = function(file){
      files <- lapply(flower_species(), function(i) {
        rmarkdown::render('test.Rmd', rmarkdown::pdf_document(), output_file = paste0(i, ".pdf"), params = list(species = i))
      }) %>% unlist %>% basename
      zip(file, files)
      file

    }
  )
}

# Return a Shiny app object
shinyApp(ui = ui, server = server)

基本原理与您先前编写的原理相同，但是lapply循环位于downloadHandler content元素内，并且您使用zip函数将所有生成的报告压缩为一个返回的zip文件。 也许在zip后面抛出一个unlink ，以删除所有pdf。