R/sum_vessel_ids.R

In ices-tools-prod/icesVMS: Link to the ICES Vessel Monitoring System and Logbook Database Web Services

#' @rdname anonymousIDs
#'
#' @export
sum_vessel_ids <- function(id, n) {
  if (any(n >= 3)) {
    return("")
  }

  ids <- paste(id, collapse = ";")
  ids <- strsplit(ids, ";")[[1]]
  ids <- unique(ids)
  if (length(ids) > 2) {
    ""
  } else {
    paste(sort(ids), collapse = ";")
  }
}