R/morph_convert2BinaryRaster.R

In hansoleorka/myR: Collection of r functions for hansoleorka

#' Moprpholgogical operators
#' 
#' Convert a raster to a binary raster 
#' 
#' @inheritParams myR::dilation
#' @rdname morphology
convert2BinaryRaster <- function(r){
	require("raster")
	r@data$bin <- ifelse(r@data$layer>0,1,0)
	r <- r[,grepl("bin",names(r))]
	r <- raster(r)
	return(r)
}