R/checkArmHolocenError.R

In idiogramFISH: Shiny App. Idiograms with Marks and Karyotype Indices

#' 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") )
    }

}