R/checkArmHolocenError.R

Defines functions checkArmHolocenError

Documented in checkArmHolocenError

#' checkArmHolocenError
#' This is an internal function that makes list of d.fs
#'
#' @keywords internal
#'
#' @param listOfdfArmGISHInternal df list
#' @param CenTypeNames character vector
#'
#' @return list

checkArmHolocenError<-function(listOfdfArmGISHInternal,CenTypeNames){

  listOfdfArmGISHInternalHolocen <- listOfdfArmGISHInternal[which(names(listOfdfArmGISHInternal) %in% CenTypeNames)]

  # if(length(listOfdfArmGISHInternalHolocen)==0){
    # remove(listOfdfArmGISHInternalHolocen)
  # }
  # else
    if(length(listOfdfArmGISHInternalHolocen)>0) {
    # remove(listOfdfArmGISHInternalHolocen)
    message(crayon::red("\nERROR: Some mark(s) of an holocentric karyotype as being in a chromosome arm REMOVED") )
    }

}

Try the idiogramFISH package in your browser

Any scripts or data that you put into this service are public.

idiogramFISH documentation built on Jan. 11, 2022, 1:08 a.m.