如何获得第二个参考书目？

Question

在rmarkdown PDF和HTML中，我想要两个参考书目 - 一个用于论文/书籍，一个用于我在研究中使用的软件。我发现了this related issue，但它没有回答我的问题，因为它涉及将两个 * .bib 文件合并到一个参考书目中。

按照here的解释，我习惯用<div id="refs"></div>放置参考书目。可能第二个可以与<div id="refs_2"></div>类似地放置，但我无法弄清楚如何执行此操作，因为"refs"似乎没有在任何地方定义。

我通常在YAML标题中定义软件，如下所示

nocite: |
    @xie_knitr:_2018, @allaire_rmarkdown:_2018, @rstudio_team_rstudio:_2016, 
    @r_development_core_team_r:_2018

所以我不必每次都经常将它复制粘贴到 * .bib 文件中（这适用于一个参考书目）。理想情况下，这个nocite: - 列表会显示为另一个标题为“软件”的新参考书目，但我也会对两个 * .bib - 文件解决方案感到满意。

预期输出将是这样的：

以前是否有人这样做并且可以解释如何做到这一点？

Answer 1

这并非完全无足轻重，但可能。以下使用pandoc Lua过滤器和pandoc 2.1.1及更高版本中提供的函数。您必须升级到最新版本才能使其正常运行。

使用过滤器可以将其添加到您的文档的YAML部分：

---
output:
  bookdown::html_document2:
    pandoc_args: --lua-filter=multiple-bibliographies.lua
bibliography_normal: normal-bibliography.bib
bibliography_software: software.bib
---

然后添加div以标记文献中应包含的参考书目。

# Bibliography

::: {#refs_normal}
:::

::: {#refs_software}
:::

每个refsX div应在标题中包含匹配的bibliographyX条目。

Lua过滤器

Lua过滤器允许以编程方式修改文档。我们使用它来分别生成参考部分。对于看起来应该包含引用的每个div（即，其ID为refsX，X为空或您的主题名称），我们创建包含所有引用的临时虚拟文档参考div，但参考书目设置为 bibliographyX 的值。这允许我们为每个主题创建参考书目，同时忽略所有其他主题（以及主要参考书目）。

上述步骤并未解决实际文档中的引用，因此我们需要单独执行此操作。将所有 bibliographyX 折叠到参考书目元值并在完整文档上运行pandoc-citeproc就足够了。

-- file: multiple-bibliographies.lua

--- collection of all cites in the document
local all_cites = {}
--- document meta value
local doc_meta = pandoc.Meta{}

--- Create a bibliography for a given topic. This acts on all divs whose ID
-- starts with "refs", followed by nothings but underscores and alphanumeric
-- characters.
local function create_topic_bibliography (div)
  local name = div.identifier:match('^refs([_%w]*)$')
  if not name then
    return nil
  end
  local tmp_blocks = {
    pandoc.Para(all_cites),
    pandoc.Div({}, pandoc.Attr('refs')),
  }
  local tmp_meta = pandoc.Meta{bibliography = doc_meta['bibliography' .. name]}
  local tmp_doc = pandoc.Pandoc(tmp_blocks, tmp_meta)
  local res = pandoc.utils.run_json_filter(tmp_doc, 'pandoc-citeproc')
  -- first block of the result contains the dummy para, second is the refs Div
  div.content = res.blocks[2].content
  return div
end

local function resolve_doc_citations (doc)
  -- combine all bibliographies
  local meta = doc.meta
  local orig_bib = meta.bibliography
  meta.bibliography = pandoc.MetaList{orig_bib}
  for name, value in pairs(meta) do
    if name:match('^bibliography_') then
      table.insert(meta.bibliography, value)
    end
  end
  doc = pandoc.utils.run_json_filter(doc, 'pandoc-citeproc')
  doc.meta.bibliography = orig_bib -- restore to original value
  return doc
end

return {
  {
    Cite = function (c) all_cites[#all_cites + 1] = c end,
    Meta = function (m) doc_meta = m end,
  },
  {Pandoc = resolve_doc_citations,},
  {Div = create_topic_bibliography,}
}