R/krsa_extractEndPoint.R

In kalganem/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(
    if (type == "STK") {Cycle == 124} else {Cycle == 94}) %>%
    dplyr::select(SampleName,Peptide ,ExposureTime, Signal, Barcode, Group)

}