Ich möchte eine Heatmap an einen Zeppelin Absatz mit R. mit Leaflet hinzufügen ich ein Skript in R Studio geschrieben, die gut funktioniert, aber wenn ich zu Zeppelin wandern die Heatmap zeigt, ist es nicht. Hier ist mein Code in R StudioHeatmap auf Zeppelin mit Leaflet
map3 <- Leaflet$new()
map3$setView(c(29.7632836, -95.3632715), 10)
vector <- c(list(c(29.76,-95.36, 50)), list(c(29.77, -95.37, 50)), list(c(29.75,-95.39,50)))
#vector = toJSONArray2(na.omit(vector), json = F, names = F)
cat(rjson::toJSON(vector[1:3]))
map3$addAssets(jshead = c(
"http://leaflet.github.io/Leaflet.heat/dist/leaflet-heat.js"
))
map3$addAssets(jshead = c("http://leaflet.github.io/Leaflet.heat/dist/leaflet-heat.js"))
map3$setTemplate(afterScript = sprintf("
<script>
var addressPoints = %s
var heat = L.heatLayer(addressPoints).addTo(map)
</script>"
,rjson::toJSON(vector)))
map3
Mein Code in Zeppelin ist fast identisch. Nur die Eingangs- und die Ausgangs Verfahren Änderungen:
library(SparkR)
sparkcontext <- sparkR.init("local[4]","cvspark",sparkEnvir=list(spark.executor.memory="1g"))
#sparkR.session()
positions <- sql("SELECT lat, long FROM my_table")
pos <- collect(positions)
map3 <- Leaflet$new()
map3$setView(c(39.93, 32.85))
vector <- c()
values1 <- pos[[1]]
values2 <- pos[[2]]
for (i in 1:length(values1))
vector <- c(vector, list(c(values1[i], values2[i], 1000)))
cat(rjson::toJSON(vector[1:3]))
map3$addAssets(jshead = c("http://leaflet.github.io/Leaflet.heat/dist/leaflet-heat.js"))
map3$setTemplate(afterScript = sprintf("
<script>
var addressPoints = %s
var heat = L.heatLayer(addressPoints).addTo(map)
</script>"
,rjson::toJSON(vector)))
map3$print("map3", include_assets=TRUE, cdn=TRUE)
Der folgende Code zeigt die Eingänge sind identisch:
cat(rjson::toJSON(vector[1:3]))
R Studio Ausgang:
[[29.76,-95.36,50],[29.77,-95.37,50],[29.75,-95.39,50]],
Zeppelin output:
[[41.6406843380063,37.6892873258843,1000],[37.0194101218466,30.3908073266391,1000],[34.0236444385`445,40.5599139822316,1000]]
Das Problem Hier ist map3$print("map3", include_assets=TRUE, cdn=TRUE)
enthält nicht die Heatmap-Schicht in seiner Ausgabe. Um die Karte auf Zeppelin zu zeigen, muss diese Methode meines Wissens nach aufgerufen werden. Die Frage ist: Wie lassen wir die Druckmethode den JavaScript-Code enthalten, der die Heatmap-Ebene auf der Karte aktiviert?
Auch bekomme ich die folgenden Fehler in Zeppelin. Aber ich glaube nicht, dass es auf diese Frage relevant ist:
Error in sparkR.sparkContext(master, appName, sparkHome, convert`NamedListToEnv(sparkEnvir), : JVM is not ready after 10 seconds
Auch der Code in Zeppelin braucht zu viel Zeit, um sich mit Spark zu verbinden, es ist ein anderes Problem. –