`expression(list())` introduced when using labeller in facet

When I am using labeller in facet_wrap I am getting expression(list()) showing up with ggplotly.

mtcars$cyl2 <- factor(mtcars$cyl, labels = c("alpha", "beta", "gamma"))
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()

ggplotly(p + facet_wrap(. ~cyl)) # See figure 1

ggplotly(p + facet_wrap(. ~cyl, labeller = label_wrap_gen(width = 25, multi_line = FALSE))) #see figure2

Figure 1

Figure 2

まず、ggplotly、facet_wrap、label_wrap_gen を使って issue 内の R 再現コードを実行し、次に添付された 2 つの図を比較します。labeller の出力が facet ラベルになる箇所を追跡します。完了条件は、2 つ目の例で expression(list()) が表示されなくなり、意図した折り返しラベルも維持されることです。