1
2
3setMethod("window<-", signature(x="SpatRaster"),
4	function(x, value)  {
5		if (inherits(value, "SpatExtent")) {
6			value <- value * ext(x)
7			if (!(x@ptr$setWindow(value@ptr))) {
8				error("window<-,SpatRaster", "could not set window")
9			}
10			#warn("window<-", "using a window is experimental")
11		} else if (is.null(value) || is.na(value)) {
12			x@ptr$removeWindow()
13		} else {
14			error("window<-", "'value' should be a SpatExtent, NULL or NA")
15		}
16		x
17	}
18)
19
20
21setMethod("window", signature(x="SpatRaster"),
22	function(x)  {
23		x@ptr$hasWindow()
24	}
25)
26
27
28