如何用R为6页PDF添加层级书签？求harupdf替代方案

方法1：通过qpdf工具结合R系统调用 #

qpdf是一款维护活跃的开源PDF处理工具，支持通过JSON配置文件添加层级书签，R可通过系统命令调用它完成操作，步骤如下：

• 安装qpdf：

  • Windows：下载官方安装包并配置环境变量
  • Linux：执行sudo apt-get install qpdf
  • macOS：执行brew install qpdf

• 准备书签配置JSON：
  按需求定义层级书签结构，示例（对应你提到的3=>Top、3.1=>Second，假设Second是Top的子书签且对应第4页）：

  [
    {
      "title": "Top",
      "page": 3,
      "children": [
        {
          "title": "Second",
          "page": 4
        }
      ]
    }
  ]
  

  将上述内容保存为bookmarks.json文件。

• R中调用qpdf命令：

  # 定义文件路径
  input_pdf <- "你的原始PDF文件路径.pdf"
  output_pdf <- "带书签的输出PDF文件路径.pdf"
  bookmark_json <- "bookmarks.json"
  
  # 执行qpdf命令添加书签
  system2("qpdf", args = c(
    input_pdf,
    "--json-bookmarks", bookmark_json,
    output_pdf
  ))
  

方法2：动态生成书签配置（结合jsonlite包） #

如果需要从数据动态生成书签结构，可使用R的jsonlite包自动生成JSON配置文件，无需手动编写：

library(jsonlite)

# 定义书签层级结构
bookmark_list <- list(
  list(
    title = "Top",
    page = 3,
    children = list(
      list(title = "Second", page = 4)
    )
  )
)

# 将结构写入JSON文件
write_json(bookmark_list, "bookmarks.json", auto_unbox = TRUE)

# 后续调用qpdf命令同方法1

注意事项 #

• 确保qpdf已添加到系统环境变量，R能直接调用该命令
• PDF页码需与实际文件页码对应（注意部分PDF可能存在封面页码偏移，需自行确认）

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