Missing aesthetic on hover in geom_rect()

Ploltly is not showing in the hover all the variables used in aes().

Missing hover info with geom_rect:

library(ggplot2)
library(plotly)
test <- data.frame(C1 = c(2, 3), C2 = c(3, 4), C3 = c(2, 3), C4 = c(1, 4), C5 = c('A', 'B'))
ggplotly( ggplot(data=test) + geom_rect(aes(xmin=C1, xmax=C2, ymin=C3, ymax=C4, fill=C5)))

Result:

Complete hover info with geom_segment:

 ggplotly(ggplot(data=test) + geom_segment(aes(x=C1, xend=C2, y=C3, yend=C4, color=C5)))

Result:

Start by running the supplied R examples with ggplot2 and plotly, comparing geom_rect() with geom_segment(). Trace the geom_rect conversion and hover-data handling in the plotly.R package; done means every variable mapped in aes(), including C1 through C5, appears in the rectangle hover information.