Âm mưu sáng bóngGoogleMaps Internet Explorer và Chrome

Question

Tôi đang cố gắng lấy cốt truyệnGoogleMaps khi sử dụng tính năng Làm việc sáng bóng trong Internet Explorer cũng như Google Chrome và đang tự hỏi tôi cần phải làm gì để khắc phục sự cố.

Mã Tôi đang sử dụng sử dụng câu trả lời cho một khác nhau question

Mã này hoạt động khi Chrome là trình duyệt, nhưng không hoạt động khi IE là trình duyệt.

Để lặp lại mã một lần nữa ở đây là:

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

Cho rằng các tập tin được tạo ra, tôi nghĩ rằng nó có lẽ là một vấn đề tải.

Như mọi khi, mọi trợ giúp sẽ được đánh giá rất cao

Answer 1

Vấn đề của bạn không phải là R, shiny hoặc plotGoogleMaps, nhưng hỗ trợ của IE cho tiêu chuẩn html5. Hỗ trợ của IE cho srcdoc không tốt, hãy đọc từ số link này. Bạn có thể sử dụng polyfill để hỗ trợ IE nhưng tôi không nghĩ rằng nó là cần thiết vì bạn đã tạo tệp html cần thiết trong bước plotGoogleMaps.

Hãy thử mã sau. Thay vì đặt iframe srcdoc, tôi sử dụng thuộc tính src. Ngoài ra bản đồ google html được tạo ra trong thư mục www để sáng bóng sẽ có thể nhìn thấy nó. Tôi đã làm cho nó hoạt động trong IE 11. Tôi nghĩ rằng nó sẽ làm việc trong IE10.

Tôi đã thay đổi câu trả lời cho giải pháp ứng dụng sáng bóng thông thường vì dường như các ứng dụng tệp đơn lẻ cũng gặp sự cố. Đây là liên kết đến shinyapps. Và xem thêm modern.ie screenshots và tất cả 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" 
    ) 
    }) 

})