legend3d not shown in html file that is created with htmlwidgets:saveWidget using version 1.3.1

[MikeImbar]

The legend is not shown html file that is created with htmlwidgets:saveWidget. I swear this exact code used to work with older versions.

reproducible code:

set.seed(1)

bla_data <- matrix(rnorm(99), ncol = 3)

par3d(FOV = 0, windowRect = c(30, 30, 1770, 1000))

plot3d(bla_data)
legend3d("topleft", c("bla1", "bla2", "bla3"), pch = 16, col = "black", cex = 3)
widget <- rglwidget()
htmlwidgets::saveWidget(widget, "D:/test/test.html")

[dmurdoch]

I see the problem too. I don't know if this is an rgl change or an htmlwidgets change; I will take a look.

[dmurdoch]

This looks like an rgl change, introduced last year around commit 2ec0521 .

In fact, the legend doesn't completely disappear: it shows up sometimes when the object in the scene is rotated.