subplot() doesn't account for dual axes

I think there is something wrong with the subplot function when there is yaxis2

I tried to use subplot with 2 plots that have yaxis2. Each plot looks like this:

foo_plot <- function(n) {
  x <- rnorm(n)
  den <- density(x)
  p <- plot_ly()
  p <- add_trace(p, x=x, type="histogram", name="Histogram",
    marker=list(line=list(color="#000", width=1), color="#555"))
  p <- add_trace(p, x=den$x, y=den$y, yaxis="y2", name="Density",
    type="scatter", mode="lines", line=list(color="#222"))
  p <- layout(p,
    yaxis2=list(overlaying="y", side="right", rangemode="nonnegative",
      showgrid=F, showline=T, ticks="outside"),
    yaxis=list(showline=T, ticks="outside"))
  return(p)
}

p <- subplot(foo_plot(1000), foo_plot(1000), nrows=2, shareX=F, shareY=F)

The density curves were missing when I merge the two plots.

This is the result of sessionInfo()

Beginne damit, das foo_plot- und subplot-Beispiel des Issues auszuführen, und vergleiche jeden Plot mit dem kombinierten Ergebnis aus zwei Zeilen. Verfolge, wie subplot mit yaxis2 umgeht, und überprüfe, dass beide Dichtekurven nach dem Zusammenführen sichtbar bleiben; abgeschlossen ist die Aufgabe, wenn Spuren mit zwei Achsen im kombinierten Plot korrekt gerendert werden.