闪亮的情节Google地图Internet Explorer与Chrome
我试图在使用Shiny在Internet Explorer和Google Chrome浏览器中工作时试图获得plotGoogleMaps，并且想知道我需要做些什么来修复它。
我正在使用的代码使用不同问题的答案
当Chrome浏览器时，该代码有效，但IE浏览器不起作用。
重复这里的代码是这样的：
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"
)
})
}
))
鉴于该文件已创建，我认为这可能是一个加载问题。
一如既往的帮助将不胜感激
您的问题不是R，闪亮或情节GoogleMaps，但IE支持html5标准。 IE对srcdoc的支持不好，请从这个链接阅读。 您可以使用polyfill来支持IE，但我不认为这是必要的，因为您已经在plotGoogleMaps步骤中创建了必要的html文件。
尝试下面的代码。 我不使用iframe srcdoc ，而是使用src属性。 此外谷歌地图html是在www目录中创建的，所以闪亮将能够看到它。 我在IE 11中工作。我认为它应该在IE10中工作。
我改变了我对普通闪亮应用解决方案的回答，因为看起来单个文件应用也存在问题。 这是shinyapps的链接。 另请参阅modern.ie截图和所有IE屏幕截图。
ui.R
library(plotGoogleMaps)
library(shiny)
shinyUI(fluidPage(
pageWithSidebar(
headerPanel('Map'),
sidebarPanel(""),
mainPanel(uiOutput('mymap'))
)
))
server.R
library(plotGoogleMaps)
library(shiny)
shinyServer(function(input, output) {
if (!file.exists("www"))
{
dir.create("www")
}
output$mymap <- renderUI({
data(meuse)
coordinates(meuse) = ~x+y
proj4string(meuse) <- CRS("+init=epsg:28992")
m <- plotGoogleMaps(meuse, filename = 'www/myMap1.html', openMap = F)
tags$iframe(
src = 'myMap1.html',
width = "100%",
height = "600px"
)
})
})