# 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(clear = TRUE)
# }
Run the code above in your browser using DataLab