R/source_map.R

In ccmothes/habicon: Habitat Connectivity Prioritization Tool

#' Create a source map, where all values other than focal value become NA
#'
#' @param x A SpatRaster object
#' @param value The cell value to create source surface from, default is 1
#'
#' @return A SpatRaster object
#'
#' @export
source_map <- function(x, value = 1){
  x[x != value] <- NA
  return(x)
}