R/version.R

In kbroman/ricalc: Calculations for Recombinant Inbred Lines

#####################################################################
#
# version.R
#
# copyright (c) 2011-2021, Karl W Broman
# last modified Aug, 2021
# first written June, 2011
#
#     This program is free software; you can redistribute it and/or
#     modify it under the terms of the GNU General Public License,
#     version 3, as published by the Free Software Foundation.
#
#     This program is distributed in the hope that it will be useful,
#     but without any warranty; without even the implied warranty of
#     merchantability or fitness for a particular purpose.  See the GNU
#     General Public License, version 3, for more details.
#
#     A copy of the GNU General Public License, version 3, is available
#     at https://www.r-project.org/Licenses/GPL-3
#
# Part of the R/ricalc package
######################################################################
# print the installed version of R/ricalc
######################################################################
ricalcversion <-
function()
{
  version <- unlist(utils::packageVersion("ricalc"))

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

    paste(version, collapse=".")
}

# end of version.R