delete duplicated rows of md

#' @rdname Helper_function

#' @export

trim_duplicate <- function(md) {

trim_duplicate <- function(md, diag = TRUE) {

  if (empty(md)) return(md)

  id <- paste(md$.rownames, md$.colnames, sep = "-")

  id2 <- paste(md$.colnames, md$.rownames, sep = "-")

  dplyr::filter(id != id2)

  if (identical(row_names(md), col_names(md)) && isTRUE(diag)) {

    md <- trim_diag(md)

  }

  id <- purrr::map2_chr(md$.rownames, md$.colnames, function(id, id2) {

    paste0(sort(c(id, id2)), collapse = "-")

  })

  md[!duplicated(id), ]

}

filter_func(..., type = "full", diag = FALSE)

trim_duplicate(md)

trim_duplicate(md, diag = TRUE)

}

\arguments{

\item{md}{a matrix_data object.}