ggplotly does not yet support stat_poly_eq from ggpmisc package

Brief description of the problem
stat_poly_eq from ggpmisc package not currently supported with ggplotly for displaying equations of plotted models to a set of scatter data points.

my.formula <- y ~ x
ggplotly(ggplot(data = plotting_data1_1, aes(x = Days_observed, y = diff, group = year_month , colour = year_month)) + geom_point() +  geom_smooth(data = plotting_data1_1, aes(group = year_month, colour = year_month), method = lm, se = FALSE, formula =  my.formula)    + stat_poly_eq(data = plotting_data1_1, aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~"),  colour = year_month),formula = my.formula, parse = TRUE)+  ylab("Actual estimate - Subsample estimate")  + theme(plot.title = element_text(hjust = 0.5)))

#> Don't know how to automatically pick scale for object of type difftime. Defaulting to continuous.
Warning message:
In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
  geom_GeomTextNpc() has yet to be implemented in plotly.
  If you'd like to see this geom implemented,
  Please open an issue with your example code at
  https://github.com/ropensci/plotly/issues

Comience ejecutando el ejemplo de ggplotly proporcionado e inspeccione la advertencia de geom2trace.default sobre la geometría GeomTextNpc no implementada. Siga cómo las capas de ggplot se convierten en trazas de Plotly y, a continuación, verifique que stat_poly_eq renderiza la ecuación del modelo y la etiqueta R² en el gráfico resultante.