R/fun_load_chr_no.R

In MicroSEC: Sequence Error Filter for Formalin-Fixed and Paraffin-Embedded Samples

#' Chromosome number loading function.
#'
#' This function attempts to load the chromosome number.
#'
#' @param organism Human or Mouse genome.
#' @return chr_no
#' @examples
#' fun_load_chr_no("Human")
#' @export
fun_load_chr_no <- function(organism) {
  if (organism %in% c("Human", "hg19", "hg38")) {
    return(24)
  }
  if (organism %in% c("Mouse", "mm10")) {
    return(21)
  }
}

# The following block is used by usethis to automatically manage
# roxygen namespace tags. Modify with care!
## usethis namespace: start
## usethis namespace: end
NULL