R/helper.R

In psikon/cuffgo: cufflinks and GO analysis

addgo <- function (dataframe, liste, spaltenname) {
  tmp <- lapply(liste, paste, collapse=",")
  dataframe <- cbind(dataframe, unlist(tmp), stringsAsFactors=FALSE)
  colnames(dataframe)[ncol(dataframe)] <- spaltenname
  dataframe
}