ggplotly() does not render empty plots from qplot() grid

Trying to run a 3x3 qplot() grid through ggplotly()—qplot() renders a fine static plot:

library(plotly)

mtcars$gear <- factor(mtcars$gear,levels=c(3,4,5),
  	labels=c("3gears","4gears","5gears")) 
mtcars$am <- factor(mtcars$am,levels=c(0,1),
  	labels=c("Automatic","Manual")) 
mtcars$cyl <- factor(mtcars$cyl,levels=c(4,6,8),
   labels=c("4cyl","6cyl","8cyl")) 

qplot(hp, mpg, data=mtcars, shape=am, color=am, 
           facets=gear~cyl, size=I(3), 
           xlab="Horsepower", ylab="Miles per Gallon")

But then when run through ggplotly(), the mid-right plot isn't rendered:

ggplotly(qplot(hp, mpg, data=mtcars, shape=am, color=am, 
           facets=gear~cyl, size=I(3), 
           xlab="Horsepower", ylab="Miles per Gallon"))

Is this a bug or expected? Any suggestions on a way to force it to show up?

Thanks.

Tái hiện ví dụ qplot() và ggplotly() được cung cấp bằng dữ liệu mtcars và các facet 3x3 theo gear và cylinder của nó. Bắt đầu từ đường dẫn chuyển đổi ggplotly() và so sánh đầu ra tĩnh với đầu ra tương tác; được xem là hoàn tất khi mọi facet, bao gồm cả panel trống, được render nhất quán hoặc hành vi này được ghi lại đúng như dự kiến.