R/split2table.R

In quantable: Streamline Descriptive Analysis of Quantitative Data Matrices

#' splits names and creates a matrix
#' @export
#' @param names vector with names
#' @param split patter to use to split
#' @return matrix
#'
#' @examples
#' dat = c("bla_ra0/2_run0","bla_ra1/2_run0","bla_ra2/2_run0")
#' split2table(dat,split="\\_|\\/")
split2table <- function(names,split="\\||\\_")
{
  cnamessplit <- stringr::str_split(as.character(names),pattern=split)
  protnam<-do.call("rbind",cnamessplit)
  return(protnam)
}