From 87727af98e3883041961f23d02bb455af450a286 Mon Sep 17 00:00:00 2001
From: AtaJadidAhari <atajadidahari@gmail.com>
Date: Thu, 16 Jan 2025 14:13:47 +0100
Subject: [PATCH] Update test_updateSeqlevelsStyle.R

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

diff --git a/tests/testthat/test_updateSeqlevelsStyle.R b/tests/testthat/test_updateSeqlevelsStyle.R
index 613d18e..eed55a0 100644
--- a/tests/testthat/test_updateSeqlevelsStyle.R
+++ b/tests/testthat/test_updateSeqlevelsStyle.R
@@ -1,12 +1,12 @@
 context("Test updateSeqlevelsStyle function")
 
 test_that("hg38, UCSC to NCBI", {
-  if (!requireNamespace('BiocManager', quietly = TRUE)) {
-    install.packages('BiocManager')
-    BiocManager::install("remotes")
- }
+  #if (!requireNamespace('BiocManager', quietly = TRUE)) {
+  #  install.packages('BiocManager')
+  #  BiocManager::install("remotes")
+  #}
   
-  BiocManager::install("BSgenome.Hsapiens.UCSC.hg38", ask=FALSE, update=FALSE)
+  #BiocManager::install("BSgenome.Hsapiens.UCSC.hg38", ask=FALSE, update=FALSE)
 
   genome <- getBSgenome("hg38")
   bsgenome <- genome
@@ -19,11 +19,11 @@ test_that("hg38, UCSC to NCBI", {
 })
 
 test_that("hg38, NCBI to UCSC", {
-  if (!requireNamespace('BiocManager', quietly = TRUE)) {
-    install.packages('BiocManager')
-  }
+  #if (!requireNamespace('BiocManager', quietly = TRUE)) {
+  #  install.packages('BiocManager')
+  #}
   
-  BiocManager::install("BSgenome.Hsapiens.NCBI.GRCh38", ask=FALSE, update=FALSE)
+  #BiocManager::install("BSgenome.Hsapiens.NCBI.GRCh38", ask=FALSE, update=FALSE)
   
   genome <- getBSgenome("GRCh38")
   bsgenome <- genome
@@ -36,11 +36,11 @@ test_that("hg38, NCBI to UCSC", {
 })
 
 test_that("hg19, NCBI to UCSC", {
-  if (!requireNamespace('BiocManager', quietly = TRUE)) {
-    install.packages('BiocManager')
-  }
+  #if (!requireNamespace('BiocManager', quietly = TRUE)) {
+  #  install.packages('BiocManager')
+  #}
   
-  BiocManager::install("BSgenome.Hsapiens.1000genomes.hs37d5", ask=FALSE, update=FALSE)
+  #BiocManager::install("BSgenome.Hsapiens.1000genomes.hs37d5", ask=FALSE, update=FALSE)
   genome <- getBSgenome("hs37d5")
   bsgenome <- genome
   
@@ -52,10 +52,10 @@ test_that("hg19, NCBI to UCSC", {
 })
 
 test_that("hg19, UCSC to NCBI", {
-  if (!requireNamespace('BiocManager', quietly = TRUE)) {
-    install.packages('BiocManager')
-  }
-  BiocManager::install("BSgenome.Hsapiens.UCSC.hg19", ask=FALSE, update=FALSE)
+  #if (!requireNamespace('BiocManager', quietly = TRUE)) {
+  #  install.packages('BiocManager')
+  #}
+  #BiocManager::install("BSgenome.Hsapiens.UCSC.hg19", ask=FALSE, update=FALSE)
   genome <- getBSgenome("hg19")
   bsgenome <- genome