R/int_ExportData.R

In AbhivKoladiya/CytoDataViz: Cytometry data visualization package

int_ExportData <- function(ds, colNames=NULL) {

  df <- data.frame(ds$fs$data)
  df <- df[,1:(length(df)-2)] #strip off the file+file scatter cols from AggregateFlowFrames

  if(is.null(colNames)){
    colNames <- NicePrettyColnames(ds$fs)[1:length(df)]
  }
  colnames(df) <- colNames
  df
}