R/prepare_fcs_files.R

In saeyslab/FlowSOM_workshop: How to get started with FlowSOM

prepare_fcs_files <- function(files = list.files("inst/extdata/",
                                                 pattern = ".fcs$",
                                                 full.names = TRUE)){
  for (file in files) {
    ff <- FlowCore::read.FCS(file)
    ff@parameters@data[,"desc"] <- gsub("#.*", "", ff@parameters@data[,"desc"] )
    FlowCore::write.FCS(ff,
                        file)
  }
}