suppressPackageStartupMessages({
library("plotlyutils")
library("ggplot2")
library("plotly")
})
g <- ggplot(mpg, aes(class, hwy))
g <- g + geom_boxplot()
print(g)
ggplotly(g)
# plot_ly(mpg, x = ~class, y = ~hwy, type = "box")
plotly_boxplot(iris[, -5])