R/majorVersion.R

In acidgenomics/AcidBase: Acid Genomics Base Functions

#' Major version
#'
#' @export
#' @note Updated 2023-01-30.
#'
#' @inheritParams params
#'
#' @return `numeric_version`.
#'
#' @examples
#' majorVersion(c("1.0.0", "2.1"))
majorVersion <- function(x) {
    x <- as.character(x)
    assert(isCharacter(x))
    x <- strsplit(x = x, split = ".", fixed = TRUE)
    x <- vapply(
        X = x,
        FUN = `[[`,
        FUN.VALUE = character(1L),
        USE.NAMES = FALSE,
        1L
    )
    x <- numeric_version(x)
    x
}