R/qtl2version.R

In rqtl/qtl2: Quantitative Trait Locus Mapping in Experimental Crosses

#' Installed version of R/qtl2
#'
#' Get installed version of R/qtl2
#'
#' @return A character string with the installed version of the R/qtl2 package.
#'
#' @examples
#' qtl2version()
#'
#' @importFrom utils packageVersion
#' @export
qtl2version <-
    function()
{
    version <- unlist(packageVersion("qtl2"))


    if(length(version) == 3) {
        # make it like #.#-#
        return( paste(c(version, ".", "-")[c(1,4,2,5,3)], collapse="") )
    }

    paste(version, collapse=".")
}