R/onceT1.R

In AlineTalhouk/FluidigmValidation: VALIDATE FLUIDIGM MACHINE DATA

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