From 55bb048cb95100f468d9fda6dcce82039b3f9cc0 Mon Sep 17 00:00:00 2001
From: AtaJadidAhari <atajadidahari@gmail.com>
Date: Mon, 13 Jan 2025 15:32:56 +0100
Subject: [PATCH] install respective genome in tests

---
 tests/testthat/test_updateSeqlevelsStyle.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/testthat/test_updateSeqlevelsStyle.R b/tests/testthat/test_updateSeqlevelsStyle.R
index e5d5477..1d6730a 100644
--- a/tests/testthat/test_updateSeqlevelsStyle.R
+++ b/tests/testthat/test_updateSeqlevelsStyle.R
@@ -1,6 +1,7 @@
 context("Test updateSeqlevelsStyle function")
 
 test_that("hg38, UCSC to NCBI", {
+  install("BSgenome.Hsapiens.UCSC.hg38")
   genome <- getBSgenome("hg38")
   bsgenome <- genome
   
@@ -12,6 +13,7 @@ test_that("hg38, UCSC to NCBI", {
 })
 
 test_that("hg38, NCBI to UCSC", {
+  install("BSgenome.Hsapiens.NCBI.GRCh38")
   genome <- getBSgenome("GRCh38")
   bsgenome <- genome
   
@@ -23,6 +25,7 @@ test_that("hg38, NCBI to UCSC", {
 })
 
 test_that("hg19, NCBI to UCSC", {
+  install("BSgenome.Hsapiens.1000genomes.hs37d5")
   genome <- getBSgenome("hs37d5")
   bsgenome <- genome
   
@@ -34,6 +37,7 @@ test_that("hg19, NCBI to UCSC", {
 })
 
 test_that("hg19, UCSC to NCBI", {
+  install("BSgenome.Hsapiens.UCSC.hg19")
   genome <- getBSgenome("hg19")
   bsgenome <- genome