[英]R using Heatmaps in Leaflet
我有一個運行Shiny的Linux盒子我試圖根據這里的演示獲取代碼來運行傳單, 這里看起來很棒
我的代碼位於rpubs頁面下面
library(leaflet)
library(leaflet.extras)
leaflet(quakes) %>% addProviderTiles(providers$CartoDB.DarkMatter) %>%
addWebGLHeatmap(lng=~long, lat=~lat, intensity = ~mag, size=60000)
我安裝了/home/shiny/nodejs/Leaflet.heat-gh-pages
當我運行上面的代碼時,我得到了地圖。 我的數據很好,因為我可以繪制標記,但是當我添加addWebGLHeatmap
部分時似乎沒有任何事情發生。
我是JS
一個完整的新手,但是我需要其他任何設置才能讓它運行嗎?
看來我得先注冊插件,以便它為每GitHub的頁面的工作在這里
library(leaflet)
library(htmltools)
library(htmlwidgets)
library(dplyr)
heatPlugin <- htmlDependency("Leaflet.heat", "99.99.99",
src = c(href = "http://leaflet.github.io/Leaflet.heat/dist/"),
script = "leaflet-heat.js"
)
registerPlugin <- function(map, plugin) {
map$dependencies <- c(map$dependencies, list(plugin))
map
}
leaflet() %>% addTiles() %>%
fitBounds(min(quakes$long), min(quakes$lat), max(quakes$long), max(quakes$lat)) %>%
registerPlugin(heatPlugin) %>%
onRender("function(el, x, data) {
data = HTMLWidgets.dataframeToD3(data);
data = data.map(function(val) { return [val.lat, val.long, val.mag*100]; });
L.heatLayer(data, {radius: 25}).addTo(this);
}", data = quakes %>% select(lat, long, mag))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.