fixes #1953

Author: rhijmans

R/subset.R

@@ -126,16 +126,17 @@ setMethod("subset", signature(x="SpatVector"),
 				}
 			x <- x[r, v, drop=drop]
 		} else {
+			if (missing(subset)) subset <- TRUE
 			spatcls <- isTRUE(substr(class(subset)[1], 1, 4) == "Spat")
 			if (spatcls) {
 				x <- x[subset]
 				if (!missing(select)) {
 					x <- x[, select, drop=drop]
 				}
 			} else if (missing(select)) {
-				x <- x[which(as.vector(subset)), drop=drop]
+				x <- x[(as.vector(subset)), drop=drop]
 			} else {
-				x <- x[which(as.vector(subset)), select, drop=drop]
+				x <- x[(as.vector(subset)), select, drop=drop]
 			}
 		}
 		#g <- gc()