Как включить тепловые карты с addTimeline, используя буклет в R

Question

Я пытаюсь создать листовки, включающие ползунок времени и тепловые карты. Я могу получать тепловые карты и добавлять временные графики отдельно без проблем, но я не могу понять, как их объединить.

Я пытался использовать идеи из этого ресурса и загрузил локальную версию 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})
                                      }"
          )))

html рендерится без проблем, карта также выводится с окном шкалы времени в углу с правильными датами, но на карте не отображаются цвета тепловой карты. Я был бы очень благодарен за любую помощь здесь.

Для ясности, я знаю, что я могу сделать 1018 *, может быть выполнено с Shiny, но в настоящее время мое учреждение не позволяет нам использовать Блестящая.