Добавьте noUiSlider к карте R Leaflet - PullRequest
Новая
       14

Добавьте noUiSlider к карте R Leaflet

0 голосов
/ 09 октября 2018

Я пытался добавить noUiSlider на карту Leaflet R, но не повезло, слайдер вообще не появляется.Кажется, что функция onRender не может получить доступ к noUiSlider, но я не могу понять, почему.

Любые идеи или указатели очень ценятся.Спасибо! 

map <- leaflet() %>% addTiles 
# add NoUISlider to map.
map$dependencies[[length(map$dependencies)+1]] <- htmlDependency(
  name = 'noUiSlider',
  version = "11.1.0",
  src = c(href = 'Leaflet/'),
  script = "nouislider.js",
  stylesheet = "nouislider.css"
)

#autozoom to state or world map upon base group selection
map <- map %>%
  onRender("

    function(el, x) {
    var map = this;
    // Add in slider

    var slider = document.getElementById('slider');
    noUiSlider.create(slider, {
    start: filters.range,
    tooltips: true,
    connect: [true, false],
    range: {
    'min': 2016,
    'max': 2018
    }
    });
    slider.addTo(HTMLWidgets.find('.leaflet'));
  }")
...