plot.png的plotMaps传奇不会显示在R闪亮的App中

Question

我想在闪亮的App中使用plotGoogleMap（= R外部的.html输出）生成一张地图。感谢ramnathv's code我设法做到了。

然而，遗憾的是图例中未显示图例。传说似乎是.png文件，每次运行时都会使用不同的名称。 我在另一个论坛上找到this discussion，但他们无法解决问题。

尝试这个最小示例，亲眼看看缺少图例：

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"
      )
    })
   }
))

有关如何解决此问题的任何建议吗？