R/cgroups.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Combines groups
#'
#' @param ... 2 or more groups describing samples of the same order
#'
#' @return
#' @export
#'
#'
cgroups <- function(...) {

  groups <- list(...)

  return <- groups[[1]]

  for(i in 2:length(groups)) {

    if(sum(names(return) != names(groups[[i]])) > 0) {
      stop("Names do not fit.")
    }

    else {
      return <- paste(return, groups[[i]], sep = "_")
      names(return) <- names(groups[[i]])
    }

  }

  return

}