R/combine_outlines_function.R

In yesdavid/outlineR: An R package to derive outline shapes from (multiple) artefacts on JPEG images

#' combine_outlines
#'
#' A function containing a recursive loop to combine a list of single
#' outline coordinate-sets into a single Momocs::Out/Opn file
#'
#' @param single_outlines_list A list containing separate coordinate
#' matrices (Momocs' Coo objects) as for example created with the
#' separate_single_artefacts function.
#'
#' @return Returns the combined Coo objects in a single Out/Opn file
#'
#' @export
combine_outlines <- function(single_outlines_list) {
  outlines_combined <- Momocs::combine(single_outlines_list[[1]], single_outlines_list[[2]])

  for (outlines_index in 3:length(single_outlines_list)) {
    outlines_combined <- Momocs::combine(outlines_combined, single_outlines_list[[outlines_index]])
  }

  return(outlines_combined)
}