Subplot fails to facet when Y-Axis contains missing values

Hi,

I have found that the subplot() function fails to facet when there are missing values in the Y-Axis.

For my use-case, showing breaks in a given time series is important and therefore I cannot simply remove the missing values.

Kind Regards,
Michael

library(reprex)
library(plotly)
library(dplyr)
library(tidyr)
economics %>%
  tidyr::gather(variable, value, -date) %>%
  transform(id = as.integer(factor(variable))) %>%
  mutate(value = replace(value, 1:10, NA)) %>%
  plot_ly(x = ~date, y = ~value, color = ~variable, colors = "Dark2",
          yaxis = ~paste0("y", id)) %>%
  add_lines() %>%
  subplot(nrows = 5, shareX = TRUE)

Empieza ejecutando el R reprex con plotly, dplyr, tidyr, economics y subplot(nrows = 5, shareX = TRUE) para reproducir el fallo por valores Y ausentes. Sigue la ruta de facetado de subplot y determina cómo afectan los valores ausentes a las asignaciones del eje y; se considera terminado cuando el ejemplo se divide en cinco subplots mientras conserva las interrupciones de la serie temporal.