我想在闪亮的应用程序中嵌入使用plotGoogleMap
(= .html
R 外部的输出)生成的地图。感谢ramnathv 的代码,我设法做到了。
然而,不幸的是,图例并没有显示在地图上。似乎图例是一个.png
文件,每次运行时都会采用不同的名称。我在另一个论坛上找到了这个讨论,但他们无法解决这个问题。
试试这个最小的例子,你自己看看图例丢失了:
library(plotGoogleMaps)
library(shiny)
runApp(list(
ui = pageWithSidebar(
headerPanel('Map'),
sidebarPanel(""),
mainPanel(uiOutput('mymap'))
),
server = function(input, output){
output$mymap <- renderUI({
data(meuse)
coordinates(meuse) = ~x+y
proj4string(meuse) <- CRS("+init=epsg:28992")
m <- plotGoogleMaps(meuse, filename = 'myMap1.html', openMap = F)
tags$iframe(
srcdoc = paste(readLines('myMap1.html'), collapse = '\n'),
width = "100%",
height = "600px"
)
})
}
))
任何建议如何解决这个问题?