Не могу получить плагин Leaflet.Spin, работающий в R Shiny - PullRequest
Новая
       111

Не могу получить плагин Leaflet.Spin, работающий в R Shiny

3 голосов
/ 01 мая 2020

У меня блестящее приложение, которое включает в себя рисование большого количества линий на карте. Я хотел бы использовать спиннер, чтобы показать пользователю, что рендеринг идет полным ходом. Большинство блестящих подходов не работают, потому что они показывают счетчик только во время отправки данных на листовки, а не во время рендеринга листовки. Плагин Leaflet.Spin выглядит многообещающе, но я изо всех сил пытался заставить его работать. Вот примеры, которые я использовал:

https://gist.github.com/jcheng5/c084a59717f18e947a17955007dc5f92

плагин листовки и leafletProxy с polylineDecorator в качестве примера

Как сделать Я получаю события js для корректного запуска и показываю Leaflet.Spin, когда линии (в этом примере круги) рендерится? Спасибо!

Обновление: Spinner теперь работает, но события запускаются для каждого добавленного круга, поэтому, если количество кругов уменьшается, spinner не выключается правильно.

1 Ответ

2 голосов
/ 01 мая 2020

URL-адреса, которые вы предоставляете, недействительны. Попробуйте 

spinPlugin <- htmlDependency(
  "spin.js", 
  "4.1.0",
  src = c(href = "https://cdnjs.cloudflare.com/ajax/libs/spin.js/2.3.2"),
  script = "spin.min.js") # there's no spin.css

leafletspinPlugin <- htmlDependency(
  "Leaflet.Spin", 
  "1.1.2",
  src = c(href = "https://cdnjs.cloudflare.com/ajax/libs/Leaflet.Spin/1.1.2"),
  script = "leaflet.spin.min.js")
...