r - 如何获得第二本引用书目？

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

我习惯将书目放在<div id="refs"></div>中，如here所述。可以使用<div id="refs_2"></div>类似地放置第二个，但是我无法弄清楚该怎么做，因为似乎没有在任何地方定义此"refs"。

我通常像这样在YAML header 中定义软件

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

因此，我不必每次都将其不断地复制粘贴到* .bib文件中(这对于一个引用书目来说效果很好)。理想情况下，此nocite: -list将作为一个名为“软件”的新书目出现在另一个书目下，但我也对两个* .bib文件解决方案感到满意。

预期输出将如下所示:



有人做过此事并且可以解释如何做吗？

最佳答案

这并非完全无关紧要，但有可能。以下使用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在 header 中都应有一个匹配的bibliographyX条目。
Lua过滤器
Lua过滤器允许以编程方式修改文档。我们使用它来单独生成引用部分。对于每个看起来应该包含引用的div(即，其ID为refsX，X为空或您的主题名称)，我们创建临时的伪文档，其中包含所有引用和引用div，但书目位于设置为bibliographyX的值。这使我们可以为每个主题创建书目，而忽略所有其他主题(以及主要书目)。
前面提到的步骤并不能解决实际文档中的引用，因此我们需要单独执行此操作。将所有书目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,}
}

我将过滤器作为官方支持的Lua filters collection的一部分发布。请参阅此处以获取更完整的最新版本，该版本还遵守csl和nocite设置。
有关Lua过滤器的更多信息和详细信息，请参见R Markdown docs。