# NOT RUN {
filename_obj = tempfile(fileext = ".obj")
#Save model of volcano
# }
# NOT RUN {
volcano %>%
sphere_shade() %>%
plot_3d(volcano, zscale = 2)
save_obj(filename_obj)
# }
# NOT RUN {
#Save model of volcano without texture
# }
# NOT RUN {
save_obj(filename_obj, save_texture = FALSE)
rgl::rgl.close()
# }
# NOT RUN {
#Make water have realistic index of refraction
# }
# NOT RUN {
montereybay %>%
sphere_shade() %>%
plot_3d(montereybay, zscale = 50)
save_obj(filename_obj, water_index_refraction = 1.5)
rgl::rgl.close()
# }
Run the code above in your browser using DataLab