1

我想在闪亮的应用程序中嵌入使用plotGoogleMap(= .htmlR 外部的输出)生成的地图。感谢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"
      )
    })
   }
))

任何建议如何解决这个问题?

4

0 回答 0