Tightly embedded in Shiny and RMarkdown

Question

I want to download Report to the Shiny App, which includes a Plotlygraph. So far I have not found an answer to stackoverflow. Until this moment, I can upload the screenshot Plotly, but it appears only in my working directory and is not sent to Rmarkdown.

Code example:

library(shiny)
library(plotly)
library(rsvg)
library(ggplot2)

d <- data.frame(X1=rnorm(50,mean=50,sd=10),X2=rnorm(50,mean=5,sd=1.5),Y=rnorm(50,mean=200,sd=25))

ui <-fluidPage(
  title = 'Download report',
  sidebarLayout(

    sidebarPanel(
      helpText(),
      radioButtons('format', 'Document format', c('PDF', 'HTML', 'Word'),
                   inline = TRUE),
      downloadButton('downloadReport'),
      tags$script('
                  document.getElementById("downloadReport").onclick = function() {
                  var plotly_svg = Plotly.Snapshot.toSVG(
                  document.querySelectorAll(".plotly")[0]
                  );

                  Shiny.onInputChange("plotly_svg", plotly_svg);
                  };
                  ')
      ),
    mainPanel(
      plotlyOutput('regPlot')
    )
      )
)

server <- function(input, output, session) {

  output$regPlot <- renderPlotly({
    p <- plot_ly(d, x = d$X1, y = d$X2,mode = "markers")
    p
  })

  observeEvent(input$plotly_svg, priority = 10, {
    png_gadget <- tempfile(fileext = ".png")
    png_gadget <- "out.png"
    print(png_gadget)
    rsvg_png(charToRaw(input$plotly_svg), png_gadget)
  })

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

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

      owd <- setwd(tempdir())
      on.exit(setwd(owd))
      file.copy(src, 'testreport.Rmd')

      library(rmarkdown)
      out <- render('testreport.Rmd', params = list(region = "Test"), switch(
        input$format,
        PDF = pdf_document(), HTML = html_document(), Word = word_document()
      ))
      file.rename(out, file)
    }
  )
}

shinyApp(ui = ui, server = server)

and file testreport.Rmd:

---
title: "test"
output: pdf_document
params:
  name: "Test"
  region: 'NULL'
---

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

Any help would be appreciated since there are R Plotlynot many sources and documentation.

Greetings

Answer 1

out.png , content downloadHandler, :

content = function(file) {
      temp_dir <- tempdir()
      tempReport <- file.path(temp_dir, 'testreport.Rmd')
      tempImage <- file.path(temp_dir, 'out.png')
      file.copy('testreport.Rmd', tempReport, overwrite = TRUE)
      file.copy('out.png', tempImage, overwrite = TRUE)

      library(rmarkdown)
      out <- render(tempReport, params = list(region = "Test"), switch(
        input$format,
        PDF = pdf_document(), HTML = html_document(), Word = word_document()
      ))
      file.rename(out, file)
    }

testreport.Rmd ( ):

---
title: "test"
---

Here the plot image.

![Plot image](out.png)

plotly render content, , Rmarkdown, Html.

Answer 2

, , .brew , brew . , . - , brew. - rmarkdown, RStudio 1.0, html . . ( R?) brew.