Missing traces when supplying a dual-axis plot to subplot()

If I do:

library(plotly)
ay <- list(
tickfont = list(color = "red"),
overlaying = "y",
side = "right",
title = "second y axis"
)
p <- plot_ly() %>%
add_lines(x = ~1:3, y = ~10*(1:3), name = "slope of 10") %>%
add_lines(x = ~2:4, y = ~1:3, name = "slope of 1", yaxis = "y2") %>%
layout(
title = "Double Y Axis", yaxis2 = ay,
xaxis = list(title="x")
)

It plots both axis.

but if I do:
subplot(p)
I loose the secondary axis.

This doesn't seem like the intended behavior of subplot unless I am missing something. Thanks!

Reproduziere das bereitgestellte R-Beispiel mit einem Plot mit zwei Achsen und übergib es dann an subplot(). Beginne am Einstiegspunkt subplot() und verfolge, wie die sekundäre y-Achse behandelt wird; fertig ist es, wenn beide Kurven und die sekundäre Achse nach der Komposition sichtbar bleiben.