r

rspatial · Oct 3, 2024 · db47db0 · db47db0
1 parent 97679be
commit db47db0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/extract_single.R b/R/extract_single.R
@@ -139,12 +139,12 @@ make_extract_index <- function(v, vmx, name="i") {
 	if (!drop) {
 		rc <- rowColFromCell(x, i)
 		e <- ext_from_rc(x, min(rc[,1]), max(rc[,1]), min(rc[,2]), max(rc[,2]))
-		y <- crop(rast(x), e)
-		y[cellFromXY(y, xyFromCell(x, i))] <- x[i]
+		y <- crop(x, e)
+		y[-cellFromXY(y, xyFromCell(x, i))] <- NA
 		y
 	} else {
 		e <- x@ptr$extractCell(i-1)
-		messages(x, "extract")
+		x <- messages(x, "extract")
 		e <- do.call(cbind, e)
 		colnames(e) <- names(x)
 		if (raw) {