tests/testthat/test-install_netmhc2pan.R

In richelbilderbeek/netmhc2pan: Interface to 'NetMHCIIpan'

test_that("install NetMHCIIpan to a custom location", {

  if (!is_on_ci()) return()
  if (!is_url_valid()) return()


  netmhc2pan_folder_name <- tempfile(pattern = "netmhc2pan_")
  expect_silent(
    install_netmhc2pan(
      netmhc2pan_folder_name = netmhc2pan_folder_name
    )
  )
  unlink(netmhc2pan_folder_name, recursive = TRUE)
})