# NOT RUN {
montereybay %>%
sphere_shade() %>%
plot_3d(montereybay,zscale=50)
render_snapshot()
# }
# NOT RUN {
#We want to add a layer of water after the initial render.
# }
# NOT RUN {
render_water(montereybay,zscale=50)
render_snapshot()
# }
# NOT RUN {
#Call it again to change the water depth
# }
# NOT RUN {
render_water(montereybay,zscale=50,waterdepth=-1000)
render_snapshot()
# }
# NOT RUN {
#Add waterlines
# }
# NOT RUN {
render_camera(theta=-45)
render_water(montereybay,zscale=50,waterlinecolor="white")
render_snapshot(clear = TRUE)
rgl::rgl.close()
# }
Run the code above in your browser using DataLab