使用play3d在R标记html中设置3d对象动画

是否可以在R标记块中插入代码，以便在生成的html中设置3d绘图动画？下面是一个降价示例：

```{r setup, include=FALSE}
library(knitr)
library(rgl)
knitr::opts_chunk$set(echo = TRUE)
```    
```{r, webgl = TRUE}
A <- merge(1:100,1:100,by=NULL)
A$z <- 0.5*A$x - 0.5*A$y
plot3d(x=A$x,y=A$y,z=A$z)
play3d(spin3d())
```

`{r设置，include=FALSE}
图书馆（knitr）
图书馆（rgl）
knitr:：opts_chunk$set（echo=TRUE）
```    
```{r，webgl=TRUE}
播放3D纯粹是为了控制R中的rgl显示。要控制HTML文档中的显示，则要复杂一些。您需要这样的代码：

```{r setup, include=FALSE}
library(knitr)
library(rgl)
knitr::opts_chunk$set(echo = TRUE)
```    
```{r}
A <- merge(1:100,1:100,by=NULL)
A$z <- 0.5*A$x - 0.5*A$y
plot3d(x=A$x,y=A$y,z=A$z)
fn <- spin3d()
control <- par3dinterpControl(fn, 0, 3, steps = 15)
rglwidget() %>% playwidget(control, step=0.01, loop = TRUE, rate = 0.5)
```

`{r设置，include=FALSE}
图书馆（knitr）
图书馆（rgl）
knitr:：opts_chunk$set（echo=TRUE）
```    
```{r}
答：没有，但请参阅
rgl
中的WebGL小插曲以了解替代方案。这非常有效，感谢您在评论中对小插曲的有用参考。对于其他感兴趣的人来说，探索magick软件包的3d动画功能可能是值得的。