R/check_flowjo.R

In aef1004/cytotypr: Pipeline to Identify Cell Types from Cytometry Data

#' Compare calculated feature engineered percentages with Flowjo manual percentage
#'
#' @param df dataframe that contains the samples, populations, and percentages
#' @param marker column name for the name of the marker that you want to check
#'
#' @return
#' @export
#'
#' @examples check_flowjo(all_fe, CD3)
#'
#' @importFrom dplyr %>%
#' @importFrom rlang .data
#'

check_flowjo <- function(df, marker) {

  percentage_df <- df %>%
    dplyr::filter({{marker}} == 1) %>%
    dplyr::group_by(.data$filename) %>%
    dplyr::mutate(sum_percentage  = sum(.data$percentage)) %>%
    dplyr::select({{marker}}, .data$filename, .data$sum_percentage) %>%
    unique()

  return(percentage_df)
}