Empty objects in subplot

An error arises when mix an empty object with ggplot-derived plotly in subplot

library(plotly); library(ggplot2)
df <- data.frame(dose=c("D0.5", "D1", "D2"), len=c(4.2, 10, 29.5))
p<-ggplot(data=df, aes(x=dose, y=len)) +geom_bar(stat="identity")
ply <- ggplotly(p)
# This gives an error.
subplot(ply, ply, ggplotly(ggplot()), nrows=1, shareX=F, shareY=F, margin=0, widths=c(0.3, 0.3, 0.3))
# This gives a warning.
subplot(ply, ply, plotly_empty(type = "scatter"), nrows=1, shareX=F, shareY=F, margin=0, widths=c(0.3, 0.3, 0.3))

What are the possible solutions? Thanks!

まず、ggplotly()、subplot()、plotly_empty() を使った再現可能な R の例を実行して、エラーと警告を確認します。subplot での空のプロットオブジェクトの処理を調査し、両方のケースに対するリグレッションテストのカバレッジを定義します。空のオブジェクトをエラーや警告なしで結合できれば完了です。