R/brickstack_to_raster_list.R

In spatial.tools: R Functions for Working with Spatial Data

#' Converts a RasterBrick/RasterStack to a list of RasterLayers
#' @param x A RasterBrick or RasterStack.
#' @return A list of RasterLayers.
#' @author Jonathan A. Greenberg
#' @examples
#' # You can speed this up if a parallel backend is running, e.g.:
#' # sfQuickInit()
#' library("foreach")
#' library("raster")
#' registerDoSEQ() # Just to avoid the warning from foreach.
#' tahoe_highrez <- brick(system.file("external/tahoe_highrez.tif", package="spatial.tools"))
#' tahoe_highrez_list <- brickstack_to_raster_list(tahoe_highrez)
#' tahoe_highrez_list
#' # sfQuickStop()
#' @import foreach raster
#' @export

brickstack_to_raster_list <- function(x)
{
	layer <- NULL # To make CRAN happy
	nlayers_x <- nlayers(x)
	raster_list <- foreach(layer=1:nlayers_x,.packages=c("raster")) %dopar%
		raster(x,layer=layer)
	
	return(raster_list)
	
}