Question

我看过this帖子在R降价报告中包含了背景图片。

我创建了一个Shiny应用程序来生成pdf报告：

shinyApp(
  ui = fluidPage(
    sliderInput("slider", "Slider", 1, 10, 5),
    downloadButton("report", "Generate report")
  ),
  server = function(input, output) {
    test1 <- reactive({
      n = input$slider
      df=matrix(1:n^2,n,n)
      df = as.data.frame(df)
      result <- list(df=df,n=n)
      return(result)

    })

    output$report <- downloadHandler(
      # For PDF output, change this to "report.pdf"
      filename = "report.pdf",
      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 = test1()$n,
                       df = test1()$df)

        # 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文件：

---
title: "Title"
author: "Name"
date: "`r Sys.Date()`"
output: 
  pdf_document :
    fig_caption: yes
    keep_tex: yes
    number_sections: yes
header-includes:
 \usepackage{booktabs}
 \usepackage{longtable}
 \usepackage{array}
 \usepackage{multirow}
 \usepackage{wrapfig}
 \usepackage{float}
 \usepackage{colortbl}
 \usepackage{pdflscape}
 \usepackage{tabu}
 \usepackage{threeparttable}
 \usepackage{threeparttablex}
 \usepackage[normalem]{ulem}
 \usepackage{makecell}
 \usepackage{background}
 \backgroundsetup{
 scale=1,
 color=black,
 opacity=0.4,
 angle=0,
 pages=all,
 contents={
  \includegraphics[width=\paperwidth,height=\paperheight]{C:/Users/path_to_image/image.jpg}
 }
 }
params:
  n: NA
  df: NA
---

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

A plot of `params$n` random points.

```{r}
plot(rnorm(params$n), rnorm(params$n))
```
```{r}
params$df %>%
mutate_if(is.numeric, function(x) {
cell_spec(x, "latex", bold = T, color = spec_color(x, end = 0.85),
font_size = spec_font_size(x))
}) %>%
kable("latex", escape = F, booktabs = T, linesep = "", align = "c")%>%
  kable_styling(latex_options = c("striped", "scale_down"))
```

我得到的错误是：

! Undefined control sequence.
l.171 \centering\rowcolors
                          {2}{gray!6}{white} 
Here is how much of TeX's memory you used:
 24161 strings out of 492990
 415742 string characters out of 6136334
 504502 words of memory out of 5000000
 27291 multiletter control sequences out of 15000+600000
 19644 words of font info for 30 fonts, out of 8000000 for 9000
 1141 hyphenation exceptions out of 8191
 62i,4n,56p,577b,315s stack positions out of 5000i,500n,10000p,200000b,80000s

  [1]: http

在tex社区中，他们指的是忘记诸如\end{document}之类的东西。我应该提到，如果我单独使用.rmd文件，并用：

替换最后一部分

{r}
library(kableExtra)
library(dplyr)
iris[1:10, ] %>%
mutate_if(is.numeric, function(x) {
cell_spec(x, "latex", bold = T, color = spec_color(x, end = 0.9),
font_size = spec_font_size(x))
}) %>%
mutate(Species = cell_spec(
Species, "latex", color = "white", bold = T,
background = spec_color(1:10, end = 0.9, option = "A", direction = -1)
)) %>%
kable("latex", escape = F, booktabs = T, linesep = "", align = "c")

我将能够使用该背景图像进行编译，如果我排除与背景图像设置相关的部分，则当前闪亮的应用程序也会生成报告。

Answer 1

这是因为xcolor必须在background之前加载。做：

---
title: "Title"
author: "Name"
date: "`r Sys.Date()`"
output: 
  pdf_document :
    fig_caption: yes
    keep_tex: yes
    number_sections: yes
header-includes:
 \usepackage{background}
 \usepackage{float}
 \backgroundsetup{
 scale=1,
 color=black,
 opacity=0.4,
 angle=0,
 pages=all,
 contents={
  \includegraphics[width=\paperwidth,height=\paperheight]{C:/Users/path_to_image/image.jpg}
 }
 }
---

请注意，您的“标头包含”是没有用的，因为所有这些软件包都将自动包含在内。

是否将背景图像添加到PDF文档的R Markdown（.rmd）文件中？

1 个答案: