R/contourGen.r

In BradHubley/SpatialHub: Survey Design and Spatial Analysis of Fisheries Data

#' @title contourGen
#' @description Generates contour polygons from image data
#' @param contour.dat = undocumented
#' @param lvls = undocumented
#' @param Poly = undocumented
#' @param col = undocumented
#' @param colorAdj = undocumented
#' @importFrom grDevices contourLines
#' @importFrom RColorBrewer brewer.pal
#' @importFrom PBSmapping convCP
#' @export
contourGen<-function(contour.dat,lvls,Poly,col="YlGn",colorAdj){

	CL <- contourLines(contour.dat,levels=lvls)
	CP <- convCP(CL)
	if(missing(Poly)) Cont.poly <- CP$PolySet
	else Cont.poly <- joinPolys(CP$PolySet,Poly)
	if(missing(colorAdj))color<-brewer.pal(length(lvls),col)
	else color<-brewer.pal(length(lvls)+colorAdj,col)[-colorAdj]
	Cont.data<- data.frame(PID=1:length(lvls),col=color,border=NA)

	list(Cont.poly=Cont.poly,Cont.data=Cont.data)
}