Javascript 如何使用R中的传单将热图与addTimeline合并

我正在尝试创建一个包含时间滑块和热图的传单图。我可以单独获得热图和添加时间线，没有问题，但我不知道如何将它们组合在一起

我尝试过使用来自的想法，并下载了js文件的本地版本。我对javascript不是很熟悉，并且承认我不知道在这一点之后我在做什么

这就是我到目前为止所做的：

library(pacman)
p_load(tidyverse,leaflet,htmltools,htmlwidgets,leaftime)

# this references my local download of the leaflet-heat.js file
heatPlugin <- htmlDependency("Leaflet.heat", "0.2.0",
  src = normalizePath("."),
  script = "leaflet-heat.js"
)
registerPlugin <- function(map, plugin) {
  map$dependencies <- c(map$dependencies, list(plugin))
  map
}

# Prep data
cohort %>% transmute(lat=lat,long=long,start=Date,end=Date+7) %>%
    geojsonio::geojson_json(lat="lat",lon="long")

# Map
leaflet(cohort) %>% addTiles() %>% 
   registerPlugin(heatPlugin) %>%
   addTimeline(timelineOpts=timelineOptions(
        pointToLayer=htmlwidgets::JS("function(data, latlng) {
                                         return L.heatLayer(latlng,{radius:15,blur:25})
                                      }"
          )))

library（pacman）
p_负载（tidyverse、传单、htmltools、htmlwidgets、leaftime）
#这参考了我在本地下载的传单-heat.js文件
热插件%addTiles（）%%>%
registerPlugin（热插件）%>%
addTimeline（timelineOpts=timelineOptions(
pointToLayer=htmlwidgets:：JS（“函数（数据，latlng））{
返回L.heatLayer（latlng，{半径：15，模糊：25}）
}"
)))

html渲染没有任何问题，地图也会在角落的时间线框中输出，日期正确，但地图上没有热图颜色。我将非常感谢您在这里提供的任何帮助

为了清楚起见，我知道我想用Shiny做什么可以实现，但目前我的机构不允许我们使用Shiny