rmarkdown - 将sparkline嵌入bootstrap popover中

Question

我正试图在popover中显示迷你图。我正在使用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()
```

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

任何帮助都非常感激。

Answer 1

我已经摆弄了一点 - 我认为潜在的问题是JavaScript没有被执行。这将在这里讨论：

Execute JS inside of a Bootstrap popover

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