Plot Mount Marcy elevation using rayshader

mount_marcy_map.R

# devtools::install_github("tylermorganwall/rayshader")
library(rayshader)
library(raster)

# Mount Marcy DEM data https://cugir.library.cornell.edu/catalog/cugir-008186
mount_marcy = raster("h47elu.dem")

mount_marcy_matrix <- matrix(extract(mount_marcy, extent(mount_marcy), buffer = 1000), 
                             nrow = ncol(mount_marcy), 
                             ncol = nrow(mount_marcy))

mount_marcy_matrix %>%
  sphere_shade(texture = "imhof2") %>%
  plot_3d(mount_marcy_matrix, zscale=5, background = "black")