.png легенда сюжета GoogleMaps не отображается в R блестящем приложении

Question

Я хотел бы добавить карту, созданную с 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"
      )
    })
   }
))

Любые предложения, как решить эту проблему?