R/whichEvents.r

In AtlanticR/bio.utilities: Package that interacts with bio providing base-level generic routines to make your life easier.

#' @title whichEvents
#' @description unknown
#' @param \code{lonlatpoint} is the central data point you want to find the surroundings c(lon,lat)
#' @param \code{radius} is the radius of the buffer zone you want to identify
#' @param \code{event.data} is the data frame for finding the points within a specified radius 
#' @param \code{on.boundary} if true will include all points on the boundary of the polygon
#' @family abysmally documented
#' @author  unknown, \email{<unknown>@@dfo-mpo.gc.ca}
#' @export
whichEvents <- function(lonlatpoint,radius,event.data,on.boundary=T) {
	loadPackages(PBSmapping)
	
	poly <- makePBS(bufferCircle(lonlat=lonlatpoint,radius=radius),polygon=T)
	e <- makePBS(event.data,polygon=F)
	e <- e[e$EID %in% findPolys(e,poly)[,1],]
	
	oo <- list(lonlatpoint,radius,poly,EventsinPolygon=e)
	
	return(oo)
}