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

Question

在rmarkdownPDF和HTML中,我想要两个参考书目 - 一个用于论文/书籍,另一个用于我在研究中使用的软件.我发现了这个相关问题,但它没有回答我的问题,因为它涉及将两个*.bib文件组合成一个参考书目.

我已习惯<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}
:::

每个refsXdiv bibliographyX的标题中应有一个匹配的条目。

Lua过滤器

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

前面提到的步骤无法解决实际文档中的引用，因此我们需要单独执行此操作。将所有书目 X 折叠成书目元值并在整个文档上运行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,}
}