WebGL剪切部分3D图像（在RGL查看器中工作良好）

我正在尝试从plot3D功能导出3D打印，如下所示：

library(maptools)
library(raster)
srtm <- getData("SRTM", lon=-15.59972, lat=27.965)

library(rgdal)
library(rasterVis)
library(rgl)
library(htmlwidgets)

open3d() # Open a new RGL device
plot3D(srtm)

或

我还尝试了以下方法将绘图嵌入到RMarkdown中：

library(knitr)
knit_hooks$set(webgl = hook_webgl)
options(rgl.printRglwidget = TRUE)

open3d()
plot3D(srtm)
rglscene <- scene3d()
# render the saved rgl scene as widget in the markdown page
rglwidget(rglscene,webGLoptions = list(preserveDrawingBuffer = FALSE))

---

有人知道为什么html中的情节会被剪切吗？如果我在其他国家也看到了同样的情况，顺便说一句，谢谢

正如writeWebGL中的文档所说，在许多浏览器中，WebGL中的对象中有65536个顶点的限制。您的曲面对象是316 x 316，这将为其提供大约100000个顶点。您需要将其拆分为两个或多个部分，或以较低的分辨率绘制。

我认为您需要发布一个可复制的示例。我们无法看到您在R中看到的内容，也无法仅基于WebGL输出7.59MB的html进行调试…非常感谢！我在plot3D中降低了maxpixels，成功了。

browseURL(paste("file://", writeWebGL(dir=file.path(getwd(), "webGL"), width=1000), sep=""))

library(knitr)
knit_hooks$set(webgl = hook_webgl)
options(rgl.printRglwidget = TRUE)

open3d()
plot3D(srtm)
rglscene <- scene3d()
# render the saved rgl scene as widget in the markdown page
rglwidget(rglscene,webGLoptions = list(preserveDrawingBuffer = FALSE))