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