R/krsa_extractEndPoint.R

In CogDisResLab/KRSA: KRSA: Kinome Random Sampling Analyzer

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