如何在 R 传单中实现传单插件"Leaflet-Pegman"

Question

我想在我的r闪亮应用程序中使用谷歌街景。我正在用传单画地图。我发现这个伟大的传单插件"；佩格曼传单"；。

我如何将这个插件实现到r闪亮的应用程序中？

我试着用这个解释。我还找到了另一个R包(谷歌(，但在我的情况下，我想用传单代替。

有人能给我举个例子吗。这是我现在的代码：

library(shiny)
library(leaflet)
library(htmltools)
library(htmlwidgets)
Googlekey <- "api_key_here"
PluginPegman <- htmlDependency(name = "Pegman",version = "0.1.4"
,src = c(href = "https://unpkg.com/leaflet-pegman/0.1.4/")
,script = "leaflet-pegman.js"
,stylesheet = "leaflet-pegman.css")
registerPlugin <- function(map, plugin) {
map$dependencies <- c(map$dependencies, list(plugin))
map
}
ui <- bootstrapPage(
tags$style(type = "text/css","html,body {width:100%;height:100%}")
,leafletOutput("map",width = "100%",height = "100%")
)
server <- function(input, output) {

output$map <- renderLeaflet({
leaflet() %>%
# Set view to the Netherlands
setView(5.41077,52.13012,zoom = 8) %>%
addProviderTiles(providers$OpenStreetMap,group = "OSM") %>%

registerPlugin(PluginPegman)  %>%
onRender("function() {
var pegmanControl = new L.Control.Pegman({
position: 'bottomright', // position of control inside the map
theme: 'leaflet-pegman-v3-default', // or 'leaflet-pegman-v3-small'});
pegmanControl.addTo(map);
}")
})
}
shinyApp(ui = ui, server = server)

非常非常感谢。

Answer 1

我必须在UI的head中包含传单pegman-js文件才能工作。我还编辑了htmlDependency中的链接，因为它没有引用正确的链接。

这个代码现在对我有效：

library(shiny)
library(leaflet)
library(htmltools)
library(htmlwidgets)
Googlekey <- "api_key_here"
PluginPegman <- htmlDependency(name = "Pegman", version = '0.1.5'
,src = c(href = "https://unpkg.com/leaflet-pegman")
,script = "leaflet-pegman.js"
,stylesheet = "leaflet-pegman.css")
registerPlugin <- function(map, plugin) {
map$dependencies <- c(map$dependencies, list(plugin))
map
}
ui <- bootstrapPage(
tags$head(
tags$script(src='https://unpkg.com/leaflet-pegman@0.1.5/leaflet-pegman.js'),
tags$style(type = "text/css","html,body {width:100%;height:100%}")
),

leafletOutput("map",width = "100%",height = "100%")
)
server <- function(input, output) {

output$map <- renderLeaflet({
leaflet() %>%
# Set view to the Netherlands
setView(5.41077,52.13012,zoom = 8) %>%
addProviderTiles(providers$OpenStreetMap,group = "OSM") %>%
registerPlugin(PluginPegman)  %>%
onRender("function(el,x) {
var pegmanControl = new L.Control.Pegman({
position: 'bottomright', 
theme: 'leaflet-pegman-v3-default',
apiKey: YOUR API KEY});
pegmanControl.addTo(this);}")
})
}
shinyApp(ui = ui, server = server)