Почему мое приложение для загрузки Shiny plot не работает в IE? - PullRequest
Новая
       13

Почему мое приложение для загрузки Shiny plot не работает в IE?

0 голосов
/ 20 февраля 2019

Я видел много сообщений, загружающих файлы в IE с использованием JavaScript, однако, поскольку мои знания о JavaScript очень малы, я был бы признателен за вашу помощь.Ниже у нас есть блестящее приложение, которое отлично работает в Firefox, но при попытке его в IE окно загрузки вообще не появляется.

library(shiny)
library(plotly)
library(lubridate)

d <- data.frame(X1 = rnorm(50,mean=50,sd=10), 
                X2 = rnorm(50,mean=5,sd=1.5), 
                Y = rnorm(50,mean=200,sd=25))

ui <-fluidPage(
  title = 'Download Plotly',
  sidebarLayout(

    sidebarPanel(
      htmlOutput("text"),
      selectInput("plot_download", "Select plot to download", choices=list("plot1","plot2")),
      actionButton('download_plot', "Download")

    ),

    mainPanel(

      plotlyOutput('regPlot'),
      plotlyOutput('regPlot2'),
      tags$script('

                  document.getElementById("download_plot").onclick = function() {
                  var plot = $("#plot_download").val();
                  if(plot == "plot1"){
                  var gd = document.getElementById("regPlot");
                  }else{
                  var gd = document.getElementById("regPlot2");
                  }
                  Plotly.Snapshot.toImage(gd, {format: "png"}).once("success", function(url) {
                  var a = window.document.createElement("a");
                  a.href = url; 
                  a.type = "image/png";
                  a.download = "plot.png";
                  document.body.appendChild(a);
                  a.click();
                  document.body.removeChild(a);                      
                  });
                  }
                  ')
    )
  )
)

server <- function(input, output, session) {

  output$text <- renderUI({
    eopm <- Sys.Date() - days(day(Sys.Date()))
    HTML(paste(eopm))
  })

  regPlot11 <- reactive({
    plot_ly(d, x = d$X1, y = d$X2, mode = "markers")
  })
  output$regPlot <- renderPlotly({
    regPlot11()
  })

  regPlot222 <- reactive({
    plot_ly(d, x = d$X1, y = d$X2, mode = "markers")
  })
  output$regPlot2 <- renderPlotly({
    regPlot222()
  })

}

shinyApp(ui = ui, server = server)

Как я могу заставить его работать в IE?

[EDIT]

После комментариев под моимсообщение, которое мне удалось сделать с помощью navigator.msSaveBlob: 

library(shiny)
library(plotly)
library(lubridate)

d <- data.frame(X1 = rnorm(50,mean=50,sd=10), 
                X2 = rnorm(50,mean=5,sd=1.5), 
                Y = rnorm(50,mean=200,sd=25))

ui <-fluidPage(
  title = 'Download Plotly',
  sidebarLayout(

    sidebarPanel(
      htmlOutput("text"),
      selectInput("plot_download", "Select plot to download", choices=list("plot1","plot2")),
      actionButton('download_plot', "Download")),

    mainPanel(

      plotlyOutput('regPlot'),
      plotlyOutput('regPlot2'),
      tags$script('document.getElementById("download_plot").onclick = function() {
                  var plot = $("#plot_download").val();
                  if(plot == "plot1"){
                  var gd = document.getElementById("regPlot");
                  }else{
                  var gd = document.getElementById("regPlot2");
                  }
                  if (navigator.msSaveBlob) { 
                   Plotly.Snapshot.toImage(gd, {format: "png"}).once("success", function(url){
                      var blob = new Blob([url],{type:"image/png"});
                      navigator.msSaveBlob(blob, "plot.png");
                  } else {
                      Plotly.Snapshot.toImage(gd, {format: "png"}).once("success", function(url) {
                      var a = window.document.createElement("a");
                      a.href = url; 
                      a.type = "image/png";
                      a.download = "plot.png";
                      document.body.appendChild(a);
                      a.click();
                      document.body.removeChild(a);                      
                      });
                  }

                  }
                  '))))

server <- function(input, output, session) {

  output$text <- renderUI({
    eopm <- Sys.Date() - days(day(Sys.Date()))
    HTML(paste(eopm))
  })

  regPlot1 <- reactive({
    plot_ly(d, x = d$X1, y = d$X2, mode = "markers")
  })
  output$regPlot <- renderPlotly({
    regPlot1()
  })

  regPlot2 <- reactive({
    plot_ly(d, x = d$X1, y = d$X2, mode = "markers")
  })
  output$regPlot2 <- renderPlotly({
    regPlot2()
  })

}

shinyApp(ui = ui, server = server)

Однако я не могу получить объект из функции Plotly.Snapshot.toImage, я думал, что это url, но, как вы можете видетьв моем коде это не работает ... Буду признателен за любую помощь или советы!

...