R/fct_proteinPeaksToMatrix.r

In chasemc/IDBacApp: MALDI-TOF MS Protien and Small Molecule Analysis

#' proteinPeaksToMatrix
#'
#' @param bool NA
#' @param proteinPeaks NA
#'
#' @return NA
#' 
#'

proteinPeaksToMatrix <- function(bool, proteinPeaks){
  
  
  temp <- NULL
  for (i in 1:length(proteinPeaks)) {
    temp <- c(temp, proteinPeaks[[i]]@metadata$Strain)
  }
  proteinSamples <- factor(temp)
  proteinMatrixInnard <- MALDIquant::intensityMatrix(proteinPeaks)
  rownames(proteinMatrixInnard) <- paste(proteinSamples)
  proteinMatrixInnard[is.na(proteinMatrixInnard)] <- 0
  
  if(bool == "0"){
    proteinMatrixInnard
  }else if (bool == "1") {
    ifelse(proteinMatrixInnard > 0, 1, 0)
    
  }else{
    proteinMatrixInnard
  }
  
}