Make ggplotly() work better anytime layout.axisid.ticktext is supplied #600

library(ggplot2)
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper extra long",as.character(diamonds$cut))
p <- qplot(cut,carat,data=diamonds,geom="boxplot") + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1))
p

library(plotly)
ggplotly(p) # right most label is cut