R/getRecursions.move2.R

In cbracis/recurse: Computes Revisitation Metrics for Trajectory Data

#' @describeIn getRecursions Get recursions for a move2 object (for details see \code{vignette("programming_move2_object", package = "move2")})
#' @method getRecursions move2
#' @export
getRecursions.move2 = function(x, radius, threshold = 0, timeunits = c("hours", "secs", "mins", "days"), 
							  verbose = TRUE)
{
	
	#check for move2 package
	if (!requireNamespace("move2", quietly = TRUE)) 
	{
		stop("move2 package needed for this function to work. Please install it.",
			 call. = FALSE)
	}	

	stopifnot(move2::mt_is_time_ordered(x))
	stopifnot(move2::mt_is_track_id_cleaved(x))

	xyt = data.frame(
	  x = sf::st_coordinates(x)[,1],
	  y = sf::st_coordinates(x)[,2],
	  t = move2::mt_time(x),
	  id = move2::mt_track_id(x)
	)
	
	return( getRecursions(xyt, radius, threshold, timeunits, verbose) )
}