r - 如何在 Flexdashboard 中包含 javascript 和 css？

Question

我使用 leaflet 包创建了一个包含 map 的 Flexdashboard。

我需要能够选择 map 区域内的标记，以便我可以根据这些标记显示摘要统计信息。 leaflet-locationfilter似乎提供了我需要的内容，但我需要弄清楚如何将其包含在生成的 HTML 文件中。我尝试在 Flexdashboard header 中使用“includes”，但这会产生错误。这是一个简单的测试用例:

---
title: "Dashboard Title"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    includes: includes(in_header = "TEST.HTML", before_body = "TEST.HTML", after_body = "TEST.HTML")
---

...其中 TEST.HTML 是:

<!-- TEST TEST TEST -->

但这失败了:

output file: Dashboard.knit.md

Error in includes$in_header : $ operator is invalid for atomic vectors Calls: -> -> overlay -> pandoc_include_args Execution halted

我不得不求助于阅读the code弄清楚如何做到这一点，因为它似乎没有在任何地方记录，但我显然错过了一些东西。

有什么建议吗？

Answer 1

而不是使用 R 的内置 includes 函数，如 documentation (第 4 页)奇怪的是，使用 YAML 代替:

---
title: "Dashboard Title"
    output: 
    flexdashboard::flex_dashboard:
        orientation: columns
        vertical_layout: fill
        includes: 
            in_header: "TEST.HTML"
            before_body: "TEST.HTML"
            after_body: "TEST.HTML"
---

但是，除了通过flexdashboard之外，还有一种不同的方式来包含传单插件。使用传单自己的dependency参数:

map$dependencies <- c(map$dependencies, list(htmlDependency(
    name = "Leaflet.locationfilter",
    version = "0.1",
    src = "PATH_TO_DIRECTORY",
    script = "locationfilter.js",
    stylesheet = "locationfilter.css"
)))