弹出窗口中的传单html小部件（迷你图）

Question

据报道，

弹出窗口和标签可以使用任意html作为其内容。我想在传单（R中）中添加一个像弹出线或标签的迷你图，希望无需学习javascript。

我尝试将sparkline（）输出的html内容粘贴到label参数中，并直接调用sparkline（）而没有运气。

---
title: "delme"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(leaflet)
library(sparkline)
```

```{r minex}

leaflet() %>% 
  addTiles() %>%
  addPopups(-122.327298, 47.597131, sparkline(c(1, 5, 2, 8)))

```