R/list2mat.R

In bedapub/ribiosGSEA: Gene-Set Enrichment Analysis Tools in Ribios

#' Convert a one-level list into an adjacency matrix
#' 
#' First-level list must have vectors of basic data types defined by R such as
#' \code{characater}, \code{integer}, \code{number}, and \code{logical}.The
#' function transforms such a list into adjacency matrix, rows of which are
#' vector elements and columns of which are names of the list.
#' 
#' @param list A one-level list. See details
#' @return An adjacency matrix. Row and column names are defined by unique
#' elements and list names, respectively.
#' @author Jitao David Zhang <jitao_david.zhang@@roche.com>
#' @examples
#' 
#' testList <- list(HSV=c("Adler", "Westermann", "Jansen"), FCB=c("Robben",
#' "Jansen", "Neuer"), S04=c("Westermann", "Neuer"))
#' list2mat(testList)
#' 
#' testList2 <- list(c("A", "B", "C"), c("B", "C", "D"), c("D", "E", "F"))
#' list2mat(testList2)
#' 
#' testList3 <- list(Worker1=0:8L, Worker2=5:13L, Worker3=8:16L, Worker4=16:24L)
#' list2mat(testList3)
#' 
#' @export list2mat
list2mat <- function(list) {
  listStr <- lapply(list, as.character)
  rt <- .Call(`_ribiosGSEA_cpp_list2mat`, listStr, PACKAGE="ribiosGSEA")
  res <- t(rt)
  return(res)
}