r <- rast(ncols=10, nrows=10)
values(r) <- 1:ncell(r)
r[c(1:25, 31:100)] <- NA
r <- ifel(r > 28, r + 10, r)
# all cell numbers of cells that are not NA
cells(r)
# cell numbers that match values
x <- cells(r, c(28,38))
x$lyr.1
# cells for points
m <- cbind(x=c(0,10,-30), y=c(40,-10,20))
cellFromXY(r, m)
v <- vect(m)
cells(r, v)
cells(r, v, method="bilinear")
# cells for polygons
f <- system.file("ex/lux.shp", package="terra")
v <- vect(f)
r <- rast(v)
cv <- cells(r, v)
Run the code above in your browser using DataLab