内联代码未在闪亮的应用程序中执行，并带有rmarkDown报告

Question

亲爱的所有闪亮的开发人员！

我有一个有关可下载rmarkDown报告的闪亮应用程序的疑问。 该应用基于此 https://shiny.rstudio.com/articles/articles/generation-generating-generating-generating-generating-generating-generating-generating-gen reports.html ，在这里作为一个景象。

shinyApp(
  ui = fluidPage(
    sliderInput("slider", "Slider", 1, 100, 50),
    downloadButton("report", "Generate report")
  ),
  server = function(input, output) {
    output$report <- downloadHandler(
      # For PDF output, change this to "report.pdf"
      filename = "report.pdf",
      content = function(filename) {
        # 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(), "Template.Rmd")
        print(tempReport)
        file.copy("Template.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 = filename,
                          params = params,
                          envir = new.env(parent = globalenv())
        )
      }
    )
  }
)

使用我的.rmd文档，

---
title: ''
output: pdf_document
geometry: "left=2cm,right=2cm,top=1cm,bottom=2cm"
params:
  n: NA
---


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

A plot of `r params$n` random points.

代码运行正常，创建了文档，但是当我打开它时，我可以看到块中的代码还可以，但在内联代码中不在，请参见下文：

但是，在此典范中画廊/下载-knitr-reports.html“ rel =” nofollow noreferrer“> https://shiny.rstudio.com/gallery/download-knitr-reports.html 我们看到内联代码很好（我没有RmarkDown Dounctunatelly的代码）。

我看到了这个主题（ https://community.rstudio.com/t/embedding-shiny-with-with-inline-not-not-not-with-with-html-actput/41175 ）可能相似，但它是html和html似乎不合适。

您有一个想法为什么它不起作用吗？还是有探索的轨道？

非常感谢！！

Answer 1

请小心文件功能！

多亏了Limey的评论，我注意到有一个错字的RmarkDown片刻之前没有更新！小心文件正确！

这是脚本工作的脚本：

shinyApp(
  ui = fluidPage(
    sliderInput("slider", "Slider", 1, 100, 50),
    downloadButton("report", "Generate report")
  ),
  server = function(input, output) {
    output$report <- downloadHandler(
      # For PDF output, change this to "report.pdf"
      filename = "report.pdf",
      content = function(filename) {
        # 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(), "rules.Rmd")
        print(tempReport)
        file.copy("Data/rules.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 = filename,
                          params = params,
                          envir = new.env(parent = globalenv())
        )
      }
    )
  }
)

rmarkown

---
title: ''
output: pdf_document
geometry: "left=2cm,right=2cm,top=1cm,bottom=2cm"
params:
  n: NA
---

```{r}
# The `params` object is available in the document.
params$n
```
A plot of `r params$n` random points. 

感谢所有人给了这个主题的时间！