Subplot with faceted ggplots: misplaced facet strips with nrows>1

When passing faceted ggplots to subplot(), the result is rendered properly as long as nrows=1. However, once I pass nrows=2 or greater, the facet strips become misplaced.

require(ggplot)
require(plotly)

ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
# With nrows = 1, facets are rendered properly
subplot (ggiris , ggiris+facet_wrap(~Species))
# With nrows>1, facets are messed up
subplot (ggiris , ggiris+facet_wrap(~Species), nrows=2)

This used to work correctly on my system, using a previous version of the library - I found the error after updating plotly and a bunch of other libraries. Unfortunately, I haven't been able to restore the previous environment, so I don't know on which release it stopped working.

Commencez par reproduire les exemples de l’issue avec subplot(), facet_wrap() et nrows=2, puis suivez le point d’entrée de subplot et la manière dont il gère les ggplots facettés et la disposition en lignes. Le travail est terminé lorsque les bandes des facettes restent correctement positionnées avec nrows supérieur à 1, avec un test de régression couvrant l’exemple signalé.