R/helpers.R

In boyanangelov/sdmexplain: Provides tools to make Species Distribution Models easier to explain

#' Helper function to make the ggplot output from LIME suitable for leaflet.
#'
makePlotURI <- function(expr, width, height, ...) {
    pngFile <- shiny::plotPNG(function() { expr },
                              width = width,
                              height = height, ...)
    on.exit(unlink(pngFile))

    base64 <- httpuv::rawToBase64(readBin(pngFile, raw(1), file.size(pngFile)))
    paste0("data:image/png;base64,", base64)
}