ggplotly does not preserve arrows created using geom_segment

If I plot arrows using geom_segment() in ggplot and then convert the plot with ggplotly, the line segment is preserved as expected but the arrows are not. See example below:

Before: We have line segments and arrows.

library(ggplot)
df2 <- expand.grid(
  lineend = c('round', 'butt', 'square'),
  linejoin = c('round', 'mitre', 'bevel'),
  stringsAsFactors = FALSE
)
df2 <- data.frame(df2, y = 1:9)
p <- ggplot(df2, aes(x = 1, y = y, xend = 2, yend = y, label = paste(lineend, linejoin))) +
  geom_segment(
    lineend = df2$lineend, linejoin = df2$linejoin,
    size = 3, arrow = arrow(length = unit(0.3, "inches"))
  ) +
  geom_text(hjust = 'outside', nudge_x = -0.2) +
  xlim(0.5, 2)

After: We have line segments but NO arrows.

ggplotly(p)

Comece executando o exemplo de R fornecido com geom_segment() e ggplotly() para reproduzir as setas ausentes. Rastreie como ggplotly converte as camadas de geom_segment e, em seguida, verifique se o gráfico convertido preserva tanto as setas quanto os segmentos de linha.