R/onceN.R

In AlineTalhouk/FluidigmValidation: VALIDATE FLUIDIGM MACHINE DATA

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