m

Author: rhijmans

R/plot.R

@@ -318,8 +318,12 @@ map.pal <- function(name, n=50, ...) {
 		return(names(v))
 	}
 	if (name %in% names(v)) {
-		r <- grDevices::colorRampPalette(v[[name]], ...)
-		r(n)
+		v <- v[[name]]
+		if (length(v) != n) {
+			grDevices::colorRampPalette(v, ...)(n)
+		} else {
+			v
+		}
 	} else {
 		error("map.pal", paste(name, "is not a known palette"))
 	}

R/plot_raster.R

@@ -2,7 +2,7 @@
 .default.pal <- function() {
 	opt.pal <- options("terra.pal")[[1]]
 	if (is.null(opt.pal))  {
-		map.pal("viridis")
+		map.pal("viridis", 100)
 	} else {
 		opt.pal
 	}

man/as.raster.Rd

@@ -17,7 +17,7 @@ Implementation of the generic \code{\link[grDevices]{as.raster}} function to cre
 \arguments{
  \item{x}{ SpatRaster }
  \item{maxcell}{positive integer. Maximum number of cells to use for the plot}
- \item{col}{vector of colors. Default is col=rev(terrain.colors(255)))}
+ \item{col}{vector of colors. The default is \code{map.pal("viridis", 100)}}
 }
 
 

man/plot.Rd

@@ -47,7 +47,7 @@ There is a separate help file for plotting a \code{\link[=plot,SpatGraticule,mis
 \arguments{
   \item{x}{SpatRaster or SpatVector}
   \item{y}{missing or positive integer or name indicating the layer(s) to be plotted}
-  \item{col}{character. Colors. The default is \code{rev(grDevices::terrain.colors(50))}. If \code{x} is a \code{SpatRaster}, it can also be a \code{data.frame} with two columns (value, color) to get a "classes" type legend or with three columns (from, to, color) to get an "interval" type legend}
+  \item{col}{character vector to specify the colors to use. The default is \code{map.pal("viridis", 100)}. The default can be changed with the \code{terra.pal} option. For example: \code{options(terra.pal=terrain.colors(10))}. If \code{x} is a \code{SpatRaster}, it can also be a \code{data.frame} with two columns (value, color) to get a "classes" type legend or with three columns (from, to, color) to get an "interval" type legend}
   \item{type}{character. Type of map/legend. One of "continuous", "classes", or "interval". If not specified, the type is chosen based on the data}
   \item{mar}{numeric vector of length 4 to set the margins of the plot (to make space for the legend). The default is (3.1, 3.1, 2.1, 7.1) for a single plot with a legend and (3.1, 3.1, 2.1, 2.1) otherwise. The default for a RGB raster is 0. Use \code{mar=NA} to not set the margins}
   \item{legend}{logical or character. If not \code{FALSE} a legend is drawn. The character value can be used to indicate where the legend is to be drawn. For example "topright" or "bottomleft". Use \code{plg} for more refined placement. Not supported for continuous legends (the default for raster data)}