geom_text_repel has not been yet implemented into plotly

I want to build a phylogenetic tree from a newick file with ggplotly function but as soon as I use geom_text_repel to avoid overlapping between branches and labels, it says that this function is not yet implemented. The geom_text works only by itself but there is a lot of ovelap. Do you know anything that can help instead? Here is a small example.

library(ggtree)
library(plotly)

treefile <- "filename.newick"
tree <- read.tree(treefile)
p1 <- ggtree(tree)
p1 + geom_text_repel()
plotly::ggplotly(p1)

Comece com o exemplo mínimo de ggtree/Newick e o ponto de entrada plotly::ggplotly(p1), comparando o comportamento existente de geom_text com a rejeição relatada de geom_text_repel. O trabalho estará concluído quando ggplotly aceitar geom_text_repel para este caso de uso e evitar o problema relatado de sobreposição de rótulos.