2023 Dev/GlowwormScaleIntegrate.R

In Hannahglover/Glowworm: Mapping genes to single cell RNAseq

GlowwormCompIntegrate = function(DataList){
  #  OutputList = list()
  #  Matrix_List = list()
  #  Meta_List = list()
  #  SumAll = list()
  #  GeneExp = list()
  
  for(LL in 1:length(DataList)){
    if(is.null(names(DataList[LL]))){
      DATANAME = paste("Data", LL)  
    }else{
      DATANAME = names(DataList[LL])
    }   
    
    if(LL == 1){
      DataRecompile = DataList[[LL]] 
      DataRecompile@MetaData$Dataset = DATANAME
    }else{
      DataList[[LL]]@MetaData$Dataset = DATANAME
      DataRecompile@MetaData = dplyr::bind_rows(DataRecompile@MetaData, DataList[[LL]]@MetaData)
      DataRecompile@GlowwormScaleOutput = dplyr::bind_rows(DataRecompile@GlowwormScaleOutput, DataList[[LL]]@GlowwormScaleOutput)
      DataRecompile@GlowwormScaleOutput_Secondary = dplyr::bind_rows(DataRecompile@GlowwormScaleOutput_Secondary, DataList[[LL]]@GlowwormScaleOutput_Secondary)  
      DataRecompile@GlowwormScaleAllCells = dplyr::bind_rows(DataRecompile@GlowwormScaleAllCells, DataList[[LL]]@GlowwormScaleAllCells)  
      DataRecompile@GlowwormScaleAllCells_Secondary = dplyr::bind_rows(DataRecompile@GlowwormScaleAllCells_Secondary, DataList[[LL]]@GlowwormScaleAllCells_Secondary) 
      DataRecompile@SpecificityScore = dplyr::bind_rows(DataRecompile@SpecificityScore, DataList[[LL]]@SpecificityScore) 
      #DataRecompile@SumStats = NULL
      #DataRecompile@SpecificityScore = NULL
      #DataRecompile@Settings = NULL
    }
  }
  return(DataRecompile)
}