Lines Matching refs:subset
10 function(x, subset, drop=TRUE, filename='', ...) { argument
11 if (is.character(subset)) {
12 i <- stats::na.omit(match(subset, names(x)))
15 } else if (length(i) < length(subset)) {
18 subset <- i
20 subset <- as.integer(subset)
21 if (! all(subset %in% 1:nlayers(x))) {
26 z <- lapply(x@z, function(x) x[subset])
31 if (length(subset) == 1 & drop) {
32 x <- x@layers[[subset]]
34 x@layers <- x@layers[subset]
46 function(x, subset, drop=TRUE, filename='', ...) { argument
49 if (is.character(subset)) {
50 i <- stats::na.omit(match(subset, names(x)))
53 } else if (length(i) < length(subset)) {
56 subset <- i
59 subset <- as.integer(subset)
61 if (! all(subset %in% 1:nl)) {
68 if (length(subset) > 1) {
69 x <- stack(lapply(subset, function(...) x))
81 z <- lapply(x@z, function(x) x[subset])
88 if (drop & length(subset)==1) {
89 x <- raster(x, subset)
91 x <- stack(x, layers=subset)
94 names(x) <- nms[subset]
97 if (drop & length(subset)==1) {
99 x <- raster(x, subset)
111 x@data@values <- x@data@values[, subset, drop=FALSE]
112 x@data@min <- x@data@min[subset]
113 x@data@max <- x@data@max[subset]
115 x@data@names <- x@data@names[subset]
117 x@data@nlayers <- as.integer(length(subset))
120 x@data@attributes <- x@data@attributes[subset]
121 x@data@isfactor <- x@data@isfactor[subset]