raster_to_matrix(raster, verbose = interactive())

#Save montereybay as a raster and open using the filename.


if("rgdal" %in% rownames(utils::installed.packages())) {
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()
}