R/get_plink_download_url_linux.R

In richelbilderbeek/plinkr: Interface to PLINK

#' Get the URL to download a Linux version of PLINK
#' @inheritParams default_params_doc
#' @return a URL
#' @author Richèl J.C. Bilderbeek
#' @export
get_plink_download_url_linux <- function(
  plink_version = get_default_plink_version()
) {
  plinkr::check_plink_version(plink_version)
  if (plink_version == "1.7") {
    return(
      "http://zzz.bwh.harvard.edu/plink/dist/plink-1.07-x86_64.zip"
    )
  } else if (plink_version == "1.9") {
    return(
      "https://s3.amazonaws.com/plink1-assets/plink_linux_x86_64_20210416.zip"
    )
  }
  testthat::expect_true(plink_version == "2.0")
  "https://s3.amazonaws.com/plink2-assets/alpha2/plink2_linux_x86_64.zip"
}