R/get_plink_version.R

In richelbilderbeek/plinkr: Interface to PLINK

#' Get the version of PLINK
#' @inheritParams default_params_doc
#' @return the version of PLINK
#' @author Richèl J.C. Bilderbeek
#' @export
get_plink_version <- function(
  plink_options = create_plink_options()
) {
  plinkr::check_plink_options(plink_options)
  plinkr::check_plink_is_installed(plink_options)
  text <- plinkr::get_plink_help_text(plink_options)
  version_line <- stringr::str_subset(
    string = text,
    pattern = "PLINK.*(v[:digit:]+\\.[:digit:]+)"
  )
  testthat::expect_equal(1, length(version_line))
  version <- stringr::str_match(
    string = version_line,
    pattern = "PLINK.*(v[:digit:]+\\.[:graph:]+)"
  )[, 2]
  version
}