Hover text differs after publishing

Plotly R, MATLAB, Julia, Net Plotly R
1

After installing dev version of the plotly (due to the fact that in the last version from cran api_create() generates grids for each trace, which is in my case a very huge number) I can’t set text on hover information.

I updated plot’s attributes using plotly_build() function:

mpg$order<-seq(1,nrow(mpg))
mpg$Size<-1

ggpl<-mpg%>%
  group_by(class)%>%
  arrange(class, desc(order))%>%
  mutate(cum_size = cumsum(Size) - Size / 2)%>%
  ggplot(aes(x=class, y=cum_size, fill = manufacturer))+
  geom_tile(color="white", size = 1, aes(height = Size))

pp<-ggplotly(ggpl)
pp<-plotly_build(ggpl)
mpg<-mpg[with(mpg, order(manufacturer,class,order)), ]
pp$x$data[1:nrow(mpg)]<-
  Map(modifyList, pp$x$data[1:nrow(mpg)],
      lapply(paste("Class:",mpg$class,"<br> Year:",mpg$year,
                   "<br> Model:",mpg$model,  sep=" "), 
             function(x) list(text=x)))
pp

In my machine:

Published version:
https://plot.ly/~azharka/48/

plotlywrong.png976×666 23.2 KB

The published version’s code differs from that in code, which makes everybody very sad :frowning: