Hi all, 
I'd like to trim a large number of simulated rasters with no coordinate system to the same extent.  The rasters all have some NAs on their margins, but not the entire margins, so I can't just use trim() in package raster.  What would be an efficient approach to removing rows or columns of rasters that contain NAs? 

An example raster, where I would want to remove the entire first row:
r <- raster()
values(r) <- 1
values(r)[1:300] <- NA

Thanks!
Karl
	[[alternative HTML version deleted]]

