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!

Reproduce el ejemplo de R proporcionado con un gráfico de doble eje y pásalo después a subplot(). Empieza en el punto de entrada subplot() y sigue cómo se gestiona el eje y secundario; se considera terminado cuando ambas trazas y el eje secundario siguen visibles después de la composición.