好像不支持中文。实操失败。

# Fri Oct 16 01:08:34 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
# save_3dprint函数，保存3D打印
rm(list=ls());gc()
require(rayshader)
# 编写可用于3D打印的立体光刻（STL）文件。
#
filename_stl = 'e:/'

volcano %>%
  sphere_shade() %>%
  plot_3d(volcano,zscale=3)
render_snapshot()
save_3dprint(filename_stl, clear=F)


#将STL文件保存到`filename_stl`中，将最大宽度设置为100 mm
volcano %>%
  sphere_shade() %>%
  plot_3d(volcano,zscale=3)
render_snapshot()
save_3dprint(filename_stl, maxwidth = 100, clear=TRUE)


#将STL文件保存到`filename_stl`中，将最大宽度设置为4英寸

volcano %>%
  sphere_shade() %>%
  plot_3d(volcano,zscale=3)
render_snapshot()
save_3dprint(filename_stl, maxwidth = 4, unit = "in", clear=TRUE)

#'#'#Save the STL file into `filename_stl`, setting maximum width (character) to 120mm

volcano %>%
  sphere_shade() %>%
  plot_3d(volcano,zscale=3)
render_snapshot()
save_3dprint(filename_stl, maxwidth = "120mm", clear=TRUE)