forked from cran/raster
-
Notifications
You must be signed in to change notification settings - Fork 0
/
dim.R
89 lines (65 loc) · 1.8 KB
/
dim.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
# Author: Robert J. Hijmans
# Date : June 2008
# Version 0.9
# Licence GPL v3
setMethod('dim', signature(x='BasicRaster'),
function(x){ return(c(nrow(x), ncol(x), 1)) }
)
setMethod('dim', signature(x='RasterStackBrick'),
function(x){ return(c(nrow(x), ncol(x), nlayers(x))) }
)
setMethod('nrow', signature(x='BasicRaster'),
function(x){ return(x@nrows)}
)
setMethod('ncol', signature(x='BasicRaster'),
function(x){ return(x@ncols) }
)
setMethod('dim<-', signature(x='BasicRaster'),
function(x, value) {
if (length(value) == 1) {
value <- c(value, ncol(x))
}
value <- as.integer(pmax(round(value[1:2]), c(1,1)))
x@nrows <- value[1]
x@ncols <- value[2]
return(x)
}
)
setMethod('dim<-', signature(x='RasterLayer'),
function(x, value) {
if (length(value) == 1) {
value <- c(value, ncol(x))
} else if (length(value) > 2) {
value <- value[1:2]
}
value <- as.integer(pmax(round(value), c(1,1)))
if (value[1] != nrow(x) | value[2] != ncol(x)) {
x <- clearValues(x)
x <- .clearFile(x)
x@nrows <- value[1]
x@ncols <- value[2]
}
return(x)
}
)
setMethod('dim<-', signature(x='RasterBrick'),
function(x, value) {
if (length(value) == 1) {
value <- c(value, ncol(x), nlayers(x))
} else if (length(value) == 2) {
value <- c(value, nlayers(x))
} else if (length(value) > 3) {
warning('value should have length 1, 2, or 3. Additional values ignored')
value <- value[1:3]
}
value <- as.integer(pmax(round(value), c(1,1,1)))
if (value[1] != nrow(x) | value[2] != ncol(x) | value[3] != nlayers(x)) {
x <- clearValues(x)
x <- .clearFile(x)
x@nrows <- value[1]
x@ncols <- value[2]
x@data@nlayers <- value[3]
}
return(x)
}
)