library(geotopbricks)
## Simulation working path
##file <- system.file("rendena100/SnowDepthMapFile-2014-MA-mean-winter-2013-2014.asc",
##package="geotopbricks")
file <- paste0("https://raw.githubusercontent.com/ecor/geotopbricks_doc/master/template/",
"rendena100/SnowDepthMapFile-2014-MA-mean-winter-2013-2014.asc")
snow <- raster(file)
min <- 0 # snow depth expressed in millimeters
max <- 2500 # snow depth expressed in millimeters
colors <- terrain.colors(1000)
color.bar.raster(x=snow,col=colors,digits=2)
color.bar.raster(x=snow,col=colors,min=min,max=max,digits=2)
Run the code above in your browser using DataLab