Блестящий сюжетGoogleMaps Internet Explorer vs Chrome

Question

Я пытаюсь получить plotGoogleMaps при использовании Shiny, работающем в Internet Explorer, а также в Google Chrome, и задавался вопросом, что мне нужно сделать, чтобы исправить это.

кода я использую использует ответ на другой question

код работает, когда 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" 
     ) 
    }) 
    } 
)) 

Учитывая, что файл будет создан, я думаю, что это, вероятно, вопрос загрузки.

Как всегда, любая помощь будет принята с благодарностью

Answer 1

Ваша проблема не R, блестящие или plotGoogleMaps, но поддержка IE для стандарта html5. Поддержка IE для srcdoc не является хорошей, прочитайте из этого link. Вы можете использовать polyfill для поддержки IE, но я не думаю, что это необходимо, так как вы уже создаете необходимый html-файл в шаге plotGoogleMaps.

Попробуйте ввести код. Вместо предоставления iframe srcdoc, я использую src Недвижимость. Также google map html создается в каталоге www, так что блестящий сможет его увидеть. Я сделал это в IE 11. Я думаю, что он должен работать в IE10.

Я поменял свой ответ на обычное блестящее решение для приложений, так как кажется, что проблемы с одним файлом также являются проблемой. Это ссылка на shinyapps. И см. Также modern.ie screenshots и все IE screenshots here.

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

})