从 Shiny 应用程序生成可下载的报告

Question

我制作了一个 R 脚本，该脚本允许使用某种类型的数据集获取 R Markdown 报告。 现在我希望其他人能够使用此脚本来获取包含他们的数据的自动报告，但无需使用此脚本（尤其是对于不掌握 R 的人）。

我尝试 go 到 Shiny 希望创建一个加载数据集的界面并自动生成我的脚本，但我无法在 Shiny 和我的 Rmd 之间建立链接。

如何告诉我的 Rmd 要处理的数据集不是我的 Rmd 脚本要在目录中查找的数据集，而是在 Shiny 接口上加载的数据集？

谢谢

这是 Shiny 脚本，我的 Rmd 名为“traitemant_bis.Rmd”：

library(shiny)
library(rmarkdown)

ui <- fluidPage(
  titlePanel("Uploading Files"),
  sidebarLayout(
    sidebarPanel(
      fileInput(
        inputId = "file1", label = "Choose CSV File",
        multiple = FALSE,
        accept = c("text/csv", "text/comma-separated-values,text/plain", ".csv")
      ),
      radioButtons("format", "Document format", c("PDF", "HTML", "Word"), inline = TRUE)
    ),
    mainPanel(
      tableOutput("contents"),
      downloadButton("downloadReport")
    )
  )
)


server <- function(input, output) {
  dataset <- reactive({
    req(input$file1)
    read.csv(file = input$file1$datapath,
             na.strings = ".", 
             sep = ";",
             header = TRUE,
             nrows=10)               
  })
  
  output$contents <- renderTable({
    req(dataset())
    head(dataset())
  })
  
  output$downloadReport <- downloadHandler(
    filename = function() {
      paste("my-report", sep = ".", switch(
        input$format, PDF = "pdf", HTML = "html", Word = "docx"
      ))
    },
    
    content = function(file) {
      src <- normalizePath("traitemant_bis.Rmd")
      
      owd <- setwd(tempdir())
      on.exit(setwd(owd))
      file.copy(src, "traitemant_bis.Rmd", overwrite = TRUE)
      
      out <- render("traitemant_bis.Rmd", switch(
        input$format,
        PDF = pdf_document(), HTML = html_document(), Word = word_document()
      ))
      file.rename(out, file)
    }
  )
}

shinyApp(ui, server) ```

Answer 1

我正在举一个简单的例子来展示你如何做到这一点。 基本上，您可以将Rmd中的任何数据作为params传递给shiny 。

如果您有多个数据框或任何数据将它们转换为单个列表并作为参数传递，您可以稍后在 RMarkdown 中提取单个数据

app.R

library(shiny)
ui <- fluidPage(

    # Application title
    titlePanel("RMD example"),
    

    downloadButton("btn", "Generate Report")

)

# Define server logic required to draw a histogram
server <- function(input, output) {

    data <- reactive({
        mtcars
    })
    
    
    output$btn <- downloadHandler(
        
        filename = function(){"myreport.docx"},
        content = function(file) {
            
                tempReport <- file.path(tempdir(),"markdown.Rmd")
                file.copy("markdown.Rmd", tempReport, overwrite = TRUE)
                rmarkdown::render("markdown.Rmd", output_format = "word_document", output_file = file,
                                  params = list(table = data()), # here I'm passing data in params
                                  envir = new.env(parent = globalenv()),clean=F,encoding="utf-8"
                )
                
            
        }
    )
}

# Run the application 
shinyApp(ui = ui, server = server)

rmd文件

 --- title: "Untitled" author: "Mohan" date: "2/17/2021" params: table: [some object] output: word_document --- ```{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) ``` ## R Markdown This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>. When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this: ```{r cars} params$table -> data data summary(data) ```