# NOT RUN {
#Save montereybay as a raster and open using the filename.
# }
# NOT RUN {
temp_raster_filename = paste0(tempfile(),".tif")
raster::writeRaster(raster::raster(t(montereybay)),temp_raster_filename)
elmat = raster_to_matrix(temp_raster_filename)
elmat %>%
sphere_shade() %>%
plot_map()
# }
Run the code above in your browser using DataLab