Justin R. Papreck
8/30/2018
Using simple code with the Shiny Application, the user can input the maximum elevation, and the application truncates, or shaves, the the top of Maunga Whau.
max <- INPUT
vvTop <- volcano
vvTop[vvTop > max] <- max
p = plot_ly(z = ~vvTop, type = "surface")
Maunga Whau shaved at 164 meters.
This application can be used at: Volcano-Shaver