Save the plotly plot as html

plot_interactive.R

#' Plots in WebGL
#' @param plt A plot created with plotly or ggplot2
#' @param html_filename The file name where the plot will be saved
#'
#' @return The html_filename
#' @export
#'
plot_interactive <- function(plt, html_filename) {
  htmltools::save_html(
    html = htmltools::as.tags(
      x = plotly::toWebGL(plt),
      standalone = TRUE),
    file = html_filename)
  html_filename
}