Shiny生成的Markdown中kable与kableExtra无法渲染PDF问题

在Shiny应用中生成Markdown文档，用kable渲染表格到PDF时，不调用kableExtra功能一切正常，但使用column_spec后出现如下LaTeX错误：

! LaTeX Error: Illegal character in array arg.

表格能正常渲染为HTML，但kableExtra似乎无法识别LaTeX渲染环境；尝试设置knitr.table.format = "pandoc"仍会在column_spec行报错，现有相关方案无效，求解决思路。

UI.R #

fluidPage(
  title = 'Download a PDF report',
  sidebarLayout(
    sidebarPanel(
      helpText(),
      div("Create a Mark Down Document"),
      radioButtons('format', 'Document format', c('PDF', 'HTML'),
                   inline = TRUE),
      downloadButton('downloadReport')
    ),
    mainPanel(
      plotOutput('regPlot')
    )
  )
)

Server.R #

library(rmarkdown)
library(shiny)
library(magrittr)
library(kableExtra)

function(input, output) {

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

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

      # temporarily switch to the temp dir, in case you do not have write
      # permission to the current working directory
      owd <- setwd(tempdir())
      on.exit(setwd(owd))
      file.copy(src, 'report.Rmd', overwrite = TRUE)

      out <- render('report.Rmd', switch(
        input$format,
        PDF = pdf_document(), HTML = html_document()
      ))
      file.rename(out, file)
    }
  )

}

Report.Rmd #

Test kable:
 
```{r}

 auto_set_format <- function() { 
   if (knitr::is_latex_output()) { 
     options(knitr.table.format = "latex") 
   } else { 
     options(knitr.table.format = "html") 
   } 
 }

auto_set_format()

tbl <- knitr::kable(mtcars[1:6, 1:6], caption = 'A subset of mtcars.') 

# THIS LINE CAUSES THE PROBEM WHEN WRITING TO PDF. COMMENT OUT AND IT WORKS OK
tbl <- tbl %>% column_spec(3, color = "#62BD19")

tbl

---

## 解决思路
- **明确指定kable的format参数**：不要依赖全局选项`knitr.table.format`，直接在调用`kable`时根据渲染环境指定格式，避免全局设置不生效的问题：
  ```r
  tbl <- knitr::kable(mtcars[1:6, 1:6], 
                      caption = 'A subset of mtcars.',
                      format = if(knitr::is_latex_output()) "latex" else "html")

• 加载必要的LaTeX依赖包：column_spec的颜色功能需要LaTeX的xcolor包支持，在Report.Rmd的YAML头部添加依赖声明：

  ---
  output:
    pdf_document:
      header-includes:
        - \usepackage{xcolor}
    html_document: default
  ---
  

• 强制kableExtra识别渲染环境：在调用column_spec前，先用kable_styling明确指定格式，确保kableExtra适配当前输出类型：

  tbl <- tbl %>% 
    kable_styling(format = if(knitr::is_latex_output()) "latex" else "html") %>%
    column_spec(3, color = "#62BD19")
  

• 简化临时目录操作：尝试去掉Server.R中临时目录的切换逻辑，直接用原文件路径调用render，避免环境变量或路径问题导致的渲染异常。

内容的提问来源于stack exchange，提问作者TheDza