R/make_genelist.R

In sarbal/EGAD: Extending guilt by association by degree

#' Creating list of all genes in the data set.
#'
#' The function extracts the list of all genes in the data set 
#' 
#' @param gene_data_interacting 2-column matrix, each row a pair indicating a relationship or interaction
#'
#' @return list array of data labels 
#' 
#' @keywords extract gene list
#' 
#' @examples
#' gene.list <- paste('gene', 1:100, sep='')
#' data <- matrix(0,nrow=100, ncol=2)
#' data[,1] <- sample(gene.list, 50, replace=TRUE)
#' data[,2] <- sample(gene.list, 50, replace=TRUE)
#' genes <- make_genelist(data)
#'
#' @export

make_genelist <- function(gene_data_interacting) {
    
    list <- append(as.character(gene_data_interacting[, 1]), as.character(gene_data_interacting[, 
        2]))
    list <- list[!duplicated(list)]
    
    return(list)
    
}