fixes #1127

rspatial · Apr 25, 2023 · 96a45a2 · 96a45a2
1 parent 85ee3c9
commit 96a45a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rasterize.R b/R/rasterize.R
@@ -126,7 +126,7 @@ rasterize_points <- function(x, y, field, values, fun="last", background=NA, upd
 	}
 	nc <- ncol(r)
 	for (i in 1:b$n) {
-		w <- matrix(background, nrow=b$nrows * nc, ncol=nl)
+		w <- matrix(background, nrow=b$nrows[i] * nc, ncol=nl)
 		mincell <- cellFromRowCol(r, b$row[i], 1)
 		maxcell <- cellFromRowCol(r, b$row[i] + b$nrows[i]-1, nc)
 		vv <- values[values[,1] >= mincell & values[,1] <= maxcell, ,drop=FALSE]