# \donttest{
if (requireNamespace("raster")) {
nsidcfile <- system.file("extdata", "nt_20140320_f17_v01_s.bin",
package = "palr", mustWork = TRUE)
r <- raster::raster(nsidcfile)
icp <- ice_pal(palette = TRUE)
## The AMSR colours
raster::plot(r, col = icp$col, zlim = range(icp$breaks),
main = sprintf("NSIDC ice %s", format(raster::getZ(r))))
}
# }
Run the code above in your browser using DataLab