R/tidy_flow_set.R

In aef1004/mycyto: Analyze flow cytometry data with feature engineering

#' Apply the tidy_flow_item function to a flowSet
#'
#' This function ultimately converts a flowSet into a tidy data frame
#'
#'  @param flowSet the flowset in which to convert to a tidy flow set

#' Create a function that applies this to all items in a 'flowSet' object
#' This function calls tidy_flow_item
#'
#' @return Returns a dataframe with a row for each observation (cell) with columns for:
#' \itemize{
#' item{\code{filename}}: {the name of the sample for which the cell comes from}
#' item{\code{fluorescent-markers}}: {the same number of marker-fluorescent pairs on read
#' on the machine will show as columns in this data frame}
#' }
#'
#' @export
tidy_flow_set <- function(flowSet){
  flow_set <- flowCore::fsApply(x = flowSet,
                                FUN = tidy_flow_item)
  flow_set <- dplyr::bind_rows(flow_set, .id = "filename")
}