无法通过rgl R包的plot3d（）函数打印RGLSENE对象

我在R软件包

rgl

（版本0.95.1441）方面遇到问题，尤其是我无法从

scene3d rgl

函数文档的示例部分复制代码：

我正在Windows 8下使用3.2.4版的R和R studio 0.99.892

open3d()
z <- 2 * volcano        # Exaggerate the relief
x <- 10 * (1:nrow(z))   # 10 meter spacing (S to N)
y <- 10 * (1:ncol(z))   # 10 meter spacing (E to W)
persp3d(x, y, z, col = "green3", aspect = "iso")

s <- scene3d()
# Make it bigger
s$par3d$windowRect <- 1.5*s$par3d$windowRect
# and draw it again
plot3d(s)

open3d（）
zs中没有par3d成分。它是s$rootSubscene的一部分。（不是这样记录的，而是这样记录的。）

如果要将场景的大小增加一倍，则需要更改两件事：windowRect和视口。这对我来说很有用：

open3d()
z <- 2 * volcano        # Exaggerate the relief
x <- 10 * (1:nrow(z))   # 10 meter spacing (S to N)
y <- 10 * (1:ncol(z))   # 10 meter spacing (E to W)
persp3d(x, y, z, col = "green3", aspect = "iso")

s <- scene3d()
# Make it bigger
par3d <- s$rootSubscene$par3d
par3d$windowRect <- 1.5*par3d$windowRect
par3d$viewport <- 1.5*par3d$viewport
s$rootSubscene$par3d <- par3d

# and draw it again
plot3d(s)

open3d（）
zs中没有par3d成分。它是s$rootSubscene的一部分。（不是这样记录的，而是这样记录的。）

如果要将场景的大小增加一倍，则需要更改两件事：windowRect和视口。这对我来说很有用：

open3d()
z <- 2 * volcano        # Exaggerate the relief
x <- 10 * (1:nrow(z))   # 10 meter spacing (S to N)
y <- 10 * (1:ncol(z))   # 10 meter spacing (E to W)
persp3d(x, y, z, col = "green3", aspect = "iso")

s <- scene3d()
# Make it bigger
par3d <- s$rootSubscene$par3d
par3d$windowRect <- 1.5*par3d$windowRect
par3d$viewport <- 1.5*par3d$viewport
s$rootSubscene$par3d <- par3d

# and draw it again
plot3d(s)

open3d（）
z@user2554330非常感谢你！此外，我遇到麻烦的原因之一是多重编辑
s
变量。只有当我在创建变量之前明确删除了变量时，代码才能正确运行（我多次使用代码，所以我也多次创建了提到的变量）。例如：
。。。rm（s）s@user2554330非常感谢您！此外，我遇到麻烦的原因之一是多重编辑
s
变量。只有当我在创建变量之前明确删除了变量时，代码才能正确运行（我多次使用代码，所以我也多次创建了提到的变量）。例如：
。。。rm（s）s