Commit 49ac67f5 authored by houyun's avatar houyun
Browse files

trim any duplicate by ID

parent 5b176169

NAMESPACE

+1 −0
Original line number Diff line number Diff line
@@ -118,6 +118,7 @@ export(set_secondary_axis) 
export(suffix_with)

export(theme_hy)

export(trim_diag)

export(trim_duplicate)

importFrom(dplyr,bind_cols)

importFrom(dplyr,bind_rows)

importFrom(dplyr,mutate)

R/utils-matrix-data.R

+10 −0
Original line number Diff line number Diff line
@@ -252,3 +252,13 @@ filter_func <- function(..., type = "full", diag = FALSE) { 
    dplyr::filter(data, ...)

  }

}



#' @rdname Helper_function

#' @export

trim_duplicate <- function(md) {

  if (empty(md)) return(md)



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

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

  dplyr::filter(id != id2)

}

man/Helper_function.Rd

+3 −0
Original line number Diff line number Diff line
@@ -15,6 +15,7 @@ 
\alias{extract_diag}

\alias{trim_diag}

\alias{filter_func}

\alias{trim_duplicate}

\title{Helper function}

\usage{

row_names(md)
@@ -44,6 +45,8 @@ extract_diag(md) 
trim_diag(md)



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



trim_duplicate(md)

}

\arguments{

\item{md}{a matrix_data object.}

CRA Git | Maintained and supported by SUSTech CRA and CCSE