R/get-dna-datatype.R

In adnaniazi/tailfindr: Poly(A) Tail Length Estimator for Oxford Nanopore RNA and DNA Reads

#' Parse optional params to get the type of DNA
#'
#' @param ... Optional parameters
#'
#' @return a character sting
#'
get_dna_datatype <- function(...){
    if (length(list(...)) > 0) {
        opt_params <- list(...)
        dna_datatype <- opt_params$dna_datatype
    } else {
        dna_datatype <- 'cdna'
    }
    return(dna_datatype)
}