如何将标题从Shiny应用程序传递到R Markdown文档？

Question

我有一个带有R Markdown报告的闪亮应用程序。 我正在尝试通过R将标题传递给.Rmd文件中的YAML。

简化的闪亮应用程序 ：

library(shiny)
library(rmarkdown)
ui <- fluidPage(
  titlePanel("test"),
  sidebarLayout(
    sidebarPanel(
      textInput("p", "Project Name", "Project Name"),
      downloadButton("report")
    ),

    mainPanel(
    )
  )
)

server <- function(input, output, session) {
  tex_pn <- reactive({paste("Project Name:",input$p)})

  output$report <- downloadHandler(
    filename = "report.pdf",
    content = function(file) {
      tempReport <- file.path(tempdir(), "report.Rmd")
      file.copy("report.Rmd", tempReport, overwrite = TRUE)
      params <- list(pn=input$p)
      rmarkdown::render(tempReport, output_file = file,
                        params = params,
                        envir = new.env(parent = globalenv())
      )
    }
  )

}
shinyApp(ui = ui, server = server)

report.Rmd ：

我在无法正常运行的.Rmd文件中执行了以下操作：

---
output:
  pdf_document :
    keep_tex: true
    number_sections: true
---

```{r echo=FALSE}
params <- list()
params$set_title <- tex_pn()
```
---
title: `r params$set_title`
author: "myname"
date: "`r Sys.Date()`"
---

some text `r params$pn`

错误是： Warning: Error in tex_pn: could not find function "tex_pn" 。

我还尝试将params$set_title <- tex_pn()更改为params$set_title <- tex_pn() params$set_title <- params$pn ，这将创建一个文件，但不显示任何标题。

Answer 1

这里的问题不一定是您的闪亮应用程序如何配置，而是更多如何在报告中指定参数。 您应该创建params在YAML frontmatter，与参数后被指定的标题，所强调的在这里 ：

---
author: "myname"
date: "`r Sys.Date()`"
params:
  set_title: test
title: "`r params$set_title`"
output: pdf_document
---

# Content
And then something here...

然后，您可以按以下方式在render函数中控制文档参数：

rmarkdown::render("report.Rmd",
                  params = list(set_title = "Some Text"),
                  envir = new.env(parent = globalenv()))

这将是值得一读的部分参数报告将R降价Defintive指南中找到更多关于R中降价参数报告。

Answer 2

如果您像这样在YAML标头的标题中添加r代码，则可能会起作用

---
output:
  pdf_document :
    keep_tex: true
    number_sections: true
---

```{r, echo=FALSE}
params <- list()
params$set_title <- paste("Report from", date())
```

---
title: `r params$set_title`
author: "myname"
date: "`r Sys.Date()`"
---

# Content
And then something here...

不过，我不确定这是否合法，但至少对我而言确实有效。 例如，我只是粘贴一些带有当前日期的字符串，但是在那里您将拥有textInput 。