# NOT RUN {
montereybay %>%
sphere_shade() %>%
plot_3d(montereybay,zscale=50,zoom=0.6,theta=-90,phi=30)
# }
# NOT RUN {
# }
# NOT RUN {
render_snapshot()
# }
# NOT RUN {
# }
# NOT RUN {
# }
# NOT RUN {
#Create a title, but also pass the `gravity` argument to magick::image_annotate using ...
#to center the text.
# }
# NOT RUN {
render_snapshot(title_text = "Monterey Bay, California",
title_color = "white", title_bar_color = "black",
title_font = "Helvetica", gravity = "North")
#Add a vignette effect
render_camera(zoom=0.8)
render_snapshot(title_text = "Monterey Bay, California",
title_color = "white", title_bar_color = "darkgreen",
vignette = TRUE,
title_font = "Helvetica", gravity = "North")
rgl::rgl.close()
# }
Run the code above in your browser using DataLab