A test document with a plotly graph
library(plotly) data(mtcars) ggplot(mtcars, aes(hp, mpg, col=cyl))+ geom_point() -> g ggplotly(g)