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