Question

我有一个很棒的应用程序，我正在使用rmarkdown从其内容中下载pdf。我遇到的问题是所有的情节都在plotly，我还没有找到如何在pdf文件的同一行中绘制2个图，在R中它将是一个简单的subplot但它不起作用。

这是我所拥有的玩具示例：

shinyApp(
  ui = fluidPage(
    downloadButton("reporte", "Generate report"),
    plotlyOutput("plotTest"),
    plotlyOutput("plotHist")

  ),
  server = function(input, output) {
    library(webshot)

    data = as.data.frame(rnorm(1000))
    plotTest = plot_ly(y = ~rnorm(1000),type = "scatter",mode = "lines")
    plotHist = plot_ly(x = ~rnorm(1000),type = "histogram")
    output$plotTest = renderPlotly({plotTest})
    output$plotHist = renderPlotly({plotHist})

    output$reporte <- downloadHandler(
      filename = "reporte.pdf",
      content = function(file) {

        tempReport <- file.path("C:/Users/Alejandro/Documents/test", "report.Rmd")
        file.copy("report.Rmd", tempReport, overwrite = TRUE)

        params <- list(n=plotTest,k=plotHist)

        rmarkdown::render(tempReport, output_file = file,
                          params = params,
                          envir = new.env(parent = globalenv())
        )
      }
    )
  }
)

report.Rmd：

---
title: "Ensayo Reporte"
output: pdf_document
always_allow_html: yes
params:
  n: NA
  k: NA
---

```{r,echo=FALSE}
library(plotly)
tmpFile <- tempfile(fileext = ".png")
export(params$n, file = tmpFile)
export(params$k, file = tmpFile)
```

添加因果fig.align='center',fig.show='hold'不起作用我只会得到：Warning: Error in : pandoc document conversion failed with error 43

在rmarkdown pdf中并排绘制情节

0 个答案: