R/twiceT2.R

In AlineTalhouk/FluidigmValidation: VALIDATE FLUIDIGM MACHINE DATA

#' Title function to check if a vector has only 2 T2
#'
#' @param vec : input vector to be checked
#' @author Johnson Liu
#' @return true if vec has only 2 T2 and false otherwise
#' @export
#'
#' @examples
twiceT2<-function(vec){
  assert_that(is.character(vec))
  assert_that(sum(!unique(vec)%in%c("N","T1","T2"))==0)
  if(sum(vec=="T2")==2){
    return(TRUE)
  }else{
    return(FALSE)
  }
}