*** This is the program ***

library(htmlwidgets)
library(plotly)
library(shiny)
library(webshot)

server<-function(input, output){
  
  # fig<-plot_ly(data=iris,x=~Sepal.Length,y=~Petal.Length)
  # fig
  
  output$boton1<-downloadHandler(
    
    filename=function() {
      paste0("check.png")
    },
    content=function(file) {
      
      fig<-plot_ly(data=iris,x=~Sepal.Length,y=~Petal.Length)
      fig
      
      saveWidget(fig,"check.html")
      webshot("check.html",file=file)
    }
  )
      
}

    ui <- fluidPage(
  downloadButton("boton1","Save png as:"),
  br(),
  plotlyOutput("plot1")
)

*** This is the error that i get in shinyapps.io ***

Error getting logs: Internal Server Error

R/Shiny. Problem with deploy. Saving a png in downloadHandler with webshot and plotly. It works local. Does not work when i am deploying

0

There are 0 best solutions below