如何将ztable生成的HTML/Latex代码导出为PDF文件？

方案一：通过LaTeX路径生成PDF #

ztable输出的LaTeX代码仅包含表格部分，需要补全完整的LaTeX文档结构才能编译为PDF，步骤如下：

library(ztable)

# 设置ztable输出LaTeX格式
options(ztable.type = "latex")
z <- ztable(head(iris), caption = "Table 1. Basic Table")

# 拼接完整的LaTeX文档
full_tex <- paste0(
  "\\documentclass{article}\n",
  "\\usepackage{booktabs}\n",  # ztable依赖该宏包渲染表格样式
  "\\begin{document}\n",
  as.character(z),  # 提取ztable生成的表格LaTeX代码
  "\\end{document}"
)

# 将内容写入.tex文件
writeLines(full_tex, "iris_table.tex")

# 调用系统pdflatex命令编译（集群需预装TeX环境）
system("pdflatex iris_table.tex")

• 前提：计算集群必须安装TeX发行版（如TeX Live），确保pdflatex命令可直接执行。
• 编译完成后会生成iris_table.pdf，同时产生的.aux、.log等辅助文件可按需删除。

方案二：通过HTML路径生成PDF #

若集群支持安装无头浏览器，可将ztable的HTML输出转为PDF：

library(ztable)
library(webshot2)

# 设置ztable输出HTML格式
options(ztable.type = "html")
z <- ztable(head(iris), caption = "Table 1. Basic Table")

# 将HTML表格代码写入本地文件
writeLines(as.character(z), "iris_table.html")

# 使用无头Chrome将HTML转为PDF
webshot2::webshot("iris_table.html", "iris_table.pdf")

• 前提：集群需安装Chrome/Chromium，或配置webshot2使用其他无头浏览器；无图形环境下需确保浏览器以无头模式运行。

问题根源说明 #

之前碰到的问题原因：

• pdf()...dev.off()仅用于捕获R绘图设备的输出，ztable生成的是HTML/LaTeX文本代码，并非绘图对象，因此无法通过该方式生成PDF。
• latexpdf::tex2pdf()要求传入.tex文件路径，而非ztable对象，直接传入z会触发参数类型错误，导致Error in file.exists(x) : invalid 'file' argument报错。

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