1# Author: Robert J. Hijmans
2# Date :  October 2008
3# Version 0.9
4# Licence GPL v3
5
6
7validCell <- function(object, cell) {
8	cell <- round(cell)
9	valid <- rep(FALSE, times=length(cell))
10	valid[cell > 0 & cell <= ncell(object)] <- TRUE
11	return(valid)
12}
13
14validRow <- function(object, rownr) {
15	rownr <- round(rownr)
16	valid <- rep(FALSE, times=length(rownr))
17	valid[rownr > 0 & rownr <= object@nrows] <- TRUE
18	return(valid)
19}
20
21validCol <- function(object, colnr) {
22	colnr <- round(colnr)
23	valid <- rep(FALSE, times=length(colnr))
24	valid[colnr > 0 & colnr <= object@ncols] <- TRUE
25	return(valid)
26}
27