R/combineResults.R

In yduan004/signatureSearchData: Datasets for signatureSearch package

#' Function combines batch-processed normalization results from same chip type
#' into a single data frame. Typically, the input for this step is generated by
#' the upstream \code{normalizeCel} function. For more context, please consult
#' the vignette of this package.
#' @title Combine Batch-processed Normalization Results
#' @param chiptype_dir character vector containing paths to chiptype directories
#' @param rerun TRUE or FALSE, whether to run the function
#' @return File storing normalization values for each CEL file type
#' @importFrom utils read.delim
#' @importFrom utils write.table
#' @examples 
#' # chiptype_dir <- unique(readRDS("./data/chiptype.rds"))
#' combineResults(chiptype_dir, rerun=FALSE)
#' @export
combineResults <- function(chiptype_dir, rerun=TRUE) {
    if(rerun) {
        for(j in seq_along(chiptype_dir)) {
            mydirs <- list.files(paste0("data/", chiptype_dir[j]), 
                                 pattern="cellbatch_", full.names=TRUE)
            for(i in seq_along(mydirs)) {
                if(i==1) {
                    df1 <- read.delim(paste0(mydirs[i], "/", "mas5exprs.xls"), 
                                      row.names=1, check.names=FALSE)
                } else {
                    tmpdf1 <- read.delim(paste0(mydirs[i], "/", "mas5exprs.xls"), 
                                         row.names=1, check.names=FALSE)
                    df1 <-cbind(df1, tmpdf1)
                }
                cat("Processed", i, "of", length(mydirs), "\n")
            }
            write.table(df1, paste0("data/", chiptype_dir[j], "/all_mas5exprs.xls"), 
                        quote=FALSE, sep="\t", col.names = NA)
            # For fast loading
            saveRDS(df1, paste0("data/", chiptype_dir[j], "/", "all_mas5exprs.rds")) 
            cat("Generated", paste0("data/", chiptype_dir[j], "/all_mas5exprs.xls"), "\n")
        }
    } else {
        print("To execute function, set 'rerun=TRUE'")
    }
}