Check raster dimensions match expectation

gistfile1.r

checkRaster <- function(raster) {
  if (raster@nrows * raster@ncols == 220106) {
    message <- paste("Raster size checks out for layer:", raster@layernames, sep="")
  }
  else { 
    message <- paste( "invalid raster dimensions; nrows:", raster@nrows, " ncols:", raster@ncols, sep="")
  }
  print(message)
}