R/krsa_extractEndPointMaxExp.R

In CogDisResLab/KRSA: KRSA: Kinome Random Sampling Analyzer

#' Extracts end point data at max exposure (last cycle)
#'
#' This function takes in raw data and chip type and returns end point
#' data at max exposure (last cycle)
#'
#' @param df krsa raw tidy data
#' @param type chip type
#'
#' @return end point data at max exposure df
#'
#' @family helper functions
#'
#'
#' @export
#'
#' @examples
#' TRUE
krsa_extractEndPointMaxExp <- function(df, type = c("STK", "PTK")) {
    df %>%
        dplyr::filter(
            Cycle == max(Cycle),
            ExposureTime == max(ExposureTime)
        ) %>%
        dplyr::select(SampleName, Peptide, Signal, Group)
}