[问题类型]:
经验咨询
[软件熟悉度]:
使用者(已经有用R 做过不少作品)
[问题叙述]:
各位好
最近在github找到在Leaflet画风标(windbarb)的JS套件
我照着在R Leaflet运用JS套件的方法去写程式码
执行之后地图可开启，但无法显示出风标，也没有任何错误讯息
不知从何处debug，感觉是JS部分没吃进去
恳请有用处理过类似语法的前辈指点，谢谢！
风标JS套件Github
https://github.com/JoranBeaufort/Leaflet.windbarb
R使用Leaflet JS套件方法
https://gist.github.com/jcheng5/c084a59717f18e947a17955007dc5f92
[程式范例]:
library(leaflet)
library(htmltools)
library(htmlwidgets)
windbarb <- htmlDependency("leaflet-windbarb", "0.0.1",
c(href =
"https://github.com/JoranBeaufort/Leaflet.windbarb/blob/master/src/"),
script = "leaflet-windbarb.js")
registerPlugin <- function(map, plugin) {
map$dependencies <- c(map$dependencies, list(plugin))
map
}
# 下面JS部分是直接拿风标github的范例语法
leaflet() %>% addTiles() %>% setView(7.222309, 47.11285, 12) %>%
registerPlugin(windbarb) %>%
onRender('function(el, x) {
var meteoPoints = [
[ 47.11285 , 7.222309, 5, 190],
[ 47.085272, 7.20377 , 30, 90],
[ 47.092285, 7.156734, 47, 170],
];
meteoPoints.forEach(function(p){
var icon = L.WindBarb.icon({deg: p[3], speed: p[2]});
var marker = L.marker([p[0],p[1]], {icon: icon}).addTo(this);
});')
[环境叙述]:
R 3.4.3 + Win 7
[关键字]:
Leaflet / Javascript