R/fixChrNameDupDF.R

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

# fixChrNameDupDF
#' This function fixes duplicated names when no marks
#'
#' It returns a list of data.frames
#'
#' @keywords internal
#'
#' @param list1dfChromSize list of 1 df of chr size
#' @param mybooleanChrName test for absence of marks
#'
#' @import crayon
#'
#' @return list
#'
#'
fixChrNameDupDF <- function(list1dfChromSize, mybooleanChrName) {
  dfChromSize <- list1dfChromSize[[1]]
  if (inherits(dfChromSize, "data.frame")) {
    OTUname <- names(list1dfChromSize)
    if (mybooleanChrName) {
      if (length(dfChromSize$chrName) != length(unique(dfChromSize$chrName))) {
        message(crayon::yellow(
          paste0(
            "\nWarning: Chromosome names duplicated in data.frame ", names(list1dfChromSize),
            ", will be renamed\n this correction is available when no marks to be plotted, otherwise, is fatal"
          )
        ))
        string <- dfChromSize$chrName
        dfChromSize$chrName <- make.uniqueIF(string)
      }
      list1dfChromSize <- list(dfChromSize)
      names(list1dfChromSize) <- OTUname
      return(list1dfChromSize)
    } else {
      return(list1dfChromSize)
    }
  } else {
    return(list1dfChromSize)
  }
}