Как передать график (renderPlot) из блестящего приложения в качестве параметра в R Markdown? - PullRequest
Новая
       27

Как передать график (renderPlot) из блестящего приложения в качестве параметра в R Markdown?

1 голос
/ 04 апреля 2019

Я пытаюсь загрузить бланк отчета с помощью приложения R Markdown, но я потерян!Мне нужно передать график от блестящего в качестве параметра до R Markdown, а затем включить этот график в мой отчет.Я много об этом искал, но ничего не смог найти.Как я могу отобразить это в моем отчете?

Server.R 

lm_dif_filter <- reactive({
    lm_dif_corn[(lm_dif_corn$farmer == input$farmer) & (lm_dif_corn$Treat_X == 'Farmer'),]
  })

output$difPlot <- renderPlotly({
      dif <- ggplot(data=lm_dif_filter(), aes(x=Treat_Y, y=dif)) +
             geom_bar(stat="identity",color = 'black', position=position_dodge(), width = 0.7)+
             geom_hline(yintercept = 0) + 
             #annotate("text", min(Treat_Y), 0, vjust = -1, label = "Farmer")+
             theme(legend.position = "none") +
             labs(x = "Treats", y = "Diff")

      ggplotly(dif)

Для скачивания: 

output$report <- downloadHandler(
     filename = "report.pdf",
     content = function(file) {
       tempReport <- file.path(tempdir(), "report.Rmd")
       file.copy("report.Rmd", tempReport, overwrite = TRUE)

       # Set up parameters to pass to Rmd document
       params <- list(set_subtitle = input$farmer, plot =  output$difPlot)
       rmarkdown::render(tempReport, output_file = file,
                         params = params,
                         envir = new.env(parent = globalenv())
       )
     }
   )

Мой отчет.rmd 

---
title: "Some title"
params:
 set_subtitle: test
 plot: NA
subtitle: "`r params$set_subtitle`"
date: '`r format(Sys.Date(), "%B %d, %Y")`'

output:
  pdf_document:
    toc: yes 
header-includes:
    - \usepackage{fancyhdr}
always_allow_html: yes
---
\addtolength{\headheight}{1.0cm} 
\pagestyle{fancyplain} 
\lhead{\includegraphics[height=1.2cm]{bg.png}} 
\renewcommand{\headrulewidth}{0pt} 


```{r, include=FALSE}
options(tinytex.verbose = TRUE)

knitr::opts_chunk$set(echo = FALSE)

cat(params$plot)

1 Ответ

1 голос
/ 04 апреля 2019

Один простой вариант - не передавать график, а вместо этого передавать параметр и ссылаться на функцию общего графика, используемую приложением Shiny и документом Rmd.Например,

Блестящее приложение,

обратите внимание на source("util.R") и report_hist(params$n) 



source("util.R")
library(shiny)
shinyApp(
  ui = fluidPage(
    sliderInput("slider", "Slider", 1, 100, 50),
    downloadButton("report", "Generate report"),
    plotOutput("report_hist")
  ),
  server = function(input, output) {
    output$report_hist <- renderPlot({
      report_hist(n = input$slider)
    })
    output$report <- downloadHandler(
      # For PDF output, change this to "report.pdf"
      filename = "report.html",
      content = function(file) {
        # Copy the report file to a temporary directory before processing it, in
        # case we don't have write permissions to the current working dir (which
        # can happen when deployed).
        tempReport <- file.path(tempdir(), "report.Rmd")
        file.copy("report.Rmd", tempReport, overwrite = TRUE)

        # Set up parameters to pass to Rmd document
        params <- list(n = input$slider)

        # Knit the document, passing in the `params` list, and eval it in a
        # child of the global environment (this isolates the code in the document
        # from the code in this app).
        rmarkdown::render(tempReport, output_file = file,
                          params = params,
                          envir = new.env(parent = globalenv())
        )
      }
    )
  }
)

Rmd,

обратите внимание на report_hist(params$n)

---
title: "Dynamic report"
output: html_document
params:
  n: NA
---

```{r}

# The `params` object is available in the document.
params$n
```

A plot of `params$n` random points.

```{r}

report_hist(params$n) #note this function was created in util.R and loaded by the shiny app. 

```

Совместно используемая функция в util.R

report_hist <- function(n){
  hist(rnorm(n))
}

Вот демонстрационное блестящее приложение, с которым вы можете проверить его, https://rstudio.cloud/project/295626

...