rmarkdown - 将迷你图嵌入到引导弹出窗口中

Question

我正在尝试在弹出窗口中显示迷你图。我正在使用 rmarkdown 创建我的 html 文档。

这是我的尝试：

---
title: "test_embed_popup"
author: "me"
date: "16 June 2017"
output: html_document
---  

```{r}
library(sparkline)
library(htmltools)
library(bsplus)

bsplus::use_bs_popover()

button_content <- 
  spk_chr(c(1:5))

tags$button(type = "button", class = "btn btn-default", "A button") %>%
  bs_embed_popover(title = "I'm a popover", content = button_content, html = "true") %>% 
  sparkline::spk_add_deps()
```

当我编织此文档时，会出现带有弹出框的按钮，但弹出框中没有迷你图。我想在弹出窗口中显示迷你图。

非常感谢任何帮助。

Answer 1

我对此进行了一些修改 - 我认为根本问题是 JavaScript 没有被执行。此处讨论：

Execute JS inside of a Bootstrap popover

我认为建议的解决方案可能超出了 bsplus 的范围（至少目前是这样） - 但我已经创建了一个 issue 来提醒自己。