thematic_with_theme() "replays" htmlwidgets

[cpsievert]

Notice how the plotly graph gets printed after exiting the following shiny app:

library(plotly)
library(thematic)
library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("body{background-color:black; color:white}")),
    tags$style(HTML("a{color:#008000}"))
  ),
  plotlyOutput("ggplot")
)
server <- function(input, output) {
  output$ggplot <- renderPlotly({
    thematic_with_theme(
      thematic_theme(),
      ggplotly(qplot(1:15, 1:15, color = 1:15))
    )
  })
}
shinyApp(ui, server)