p

NAMESPACE

@@ -18,5 +18,5 @@ S3method(str, SpatRaster)
 S3method(str, SpatExtent)
 S3method(str, SpatGraticule)
 
-export(focalMat, gdal, getGDALconfig, graticule, setGDALconfig, north, sbar, terraOptions, tmpFiles, makeVRT, mem_info, free_RAM, shade, gdalCache, fileBlocksize, vector_layers)
+export(focalMat, gdal, getGDALconfig, graticule, setGDALconfig, map.pal, north, sbar, terraOptions, tmpFiles, makeVRT, mem_info, free_RAM, shade, gdalCache, fileBlocksize, vector_layers)
 

R/plot.R

@@ -307,3 +307,28 @@ shade <- function(slope, aspect, angle=45, direction=0, normalize=FALSE, filenam
 	messages(slope, "shade")
 }
 
+
+map.pal <- function(name, n=50, ...) { 
+	f <- system.file("colors/palettes.rds", package="terra")
+	v <- readRDS(f)
+	if (missing(name)) {
+		return(names(v))
+	}
+	if (name %in% names(v)) {
+		r <- colorRampPalette(v[[name]], ...)
+		r(n)
+	} else {
+		error("map.pal", paste(name, "is not a known palette"))
+	}
+}
+
+map.leg <- function(name) { 
+	f <- system.file("colors/legends.rds", package="terra")
+	v <- readRDS(f)
+	if (name %in% names(v)) {
+		v[[name]]
+	} else {
+		error("map.leg", paste(name, "is not a known legend"))
+	}
+}
+

man/mappal.Rd

@@ -0,0 +1,38 @@
+\name{map.pal}
+
+\alias{map.pal}
+
+\title{map.pal arrow}
+
+\description{
+Get a color palette for mapping. These palettes were copied from GRASS
+}
+
+\usage{
+map.pal(name, n=50, ...)
+
+}
+
+\arguments{
+\item{name}{character (name of a palette), or missing (to get the available names)}
+\item{n}{numeric. The number of colors}
+\item{...}{additional arguments that are passed to \code{\link{colorRamp}}}
+}
+
+\value{
+none
+}
+
+\seealso{ \code{\link{terrain.colors}} }
+
+\examples{
+map.pal("elevation", 10)
+
+r <- rast(system.file("ex/elev.tif", package="terra"))
+plot(r, col=map.pal("elevation"))
+
+map.pal()
+}
+
+
+\keyword{spatial}

src/write.cpp

@@ -270,13 +270,16 @@ bool SpatRaster::writeValues(std::vector<double> &vals, size_t startrow, size_t
 
 	size_t nv = nrows * ncol() * nlyr();
 	if (vals.size() != nv) {
-		setError("incorrect number of values for writing");
+		if (nv > vals.size()) {
+			setError("incorrect number of values (too many) for writing");
+		} else {
+			setError("incorrect number of values (too few) for writing");
+		}
 		return false;
 	}
 
 	if (source[0].driver == "gdal") {
 		#ifdef useGDAL
-
 		success = writeValuesGDAL(vals, startrow, nrows, 0, ncol());
 		#else
 		setError("GDAL is not available");