如何在R中的小叶贴图中的线上动画通量?
是否可以在R中使用Leaflet-ant-path(https://github.com/rubenspgcavalcante/leaflet-ant-path)?
library(sf)
library(leaflet)
pts <- matrix(1:10, , 2)
ls1 <- st_linestring(pts)
leaflet() %>%
addTiles() %>%
addPolylines(data= ls1)
答案 0 :(得分:2)
我不确定您的代码显示了什么,但是我可以通过将多个线程绑定在一起来解决。首先,我使用Joe Cheng的gist来确保antPath库已正确加载到浏览器中。要调用antPath,我需要一个CDN,幸运的是,在此封闭的PR
中描述了一个CDN。最后,我不得不深入研究htmlwidgets中的onRender
函数,以正确执行js代码。我在JS代码中将点手动添加为LatLong
对象。我敢肯定有一种方法可以直接从R会话传递它们,但这就是我用来完成这项工作的方式。
完整代码:
library(leaflet)
library(htmltools)
library(htmlwidgets)
antPlugin <- htmlDependency(name = "leaflet-ant-path", version = "1.2.1",
src = c(href = "http://unpkg.com/leaflet-ant-path@1.2.1/dist/"),
script = "leaflet-ant-path.js"
)
registerPlugin <- function(map, plugin) {
map$dependencies <- c(map$dependencies, list(plugin))
map
}
leaflet() %>%
setView(-0.18, 51.50, 14) %>%
addTiles() %>%
registerPlugin(antPlugin) %>%
onRender("function(el, x) {
polylinePoints = [
new L.LatLng(51.51032167, -0.187084072),
new L.LatLng(51.51019814, -0.187030437),
new L.LatLng(51.51013137, -0.187845822),
new L.LatLng(51.50457546, -0.185415744),
new L.LatLng(51.50476244, -0.181875224),
new L.LatLng(51.50457546, -0.179622177),
new L.LatLng(51.50409462, -0.175459380),
new L.LatLng(51.50368057, -0.174365042),
new L.LatLng(51.50299938, -0.174729820),
new L.LatLng(51.50213117, -0.174686903),
new L.LatLng(51.50199760, -0.177412030),
new L.LatLng(51.50179725, -0.180373197),
new L.LatLng(51.50143660, -0.180351735),
];
polylineOptions = {color: 'blue', weight: 6, opacity: 0.9};
L.polyline.antPath(polylinePoints, polylineOptions).addTo(this);
}")
这不会显示在RStudio小预览窗口中,但展开到完整的浏览器会显示以下内容: