From f74d7aa77f536ca6c474e7c30aaa3b9b8b002403 Mon Sep 17 00:00:00 2001 From: AtaJadidAhari Date: Mon, 13 Jan 2025 16:44:31 +0100 Subject: [PATCH] load httr library --- DESCRIPTION | 1 + R/helper-functions.R | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 1e8cc75..dee08d8 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -61,6 +61,7 @@ Imports: ggplot2, ggrepel, HDF5Array, + httr, matrixStats, methods, OUTRIDER, diff --git a/R/helper-functions.R b/R/helper-functions.R index 0e47fb9..26dfb77 100644 --- a/R/helper-functions.R +++ b/R/helper-functions.R @@ -708,7 +708,7 @@ updateSeqlevelsStyle <- function(bsgenome, genome_assembly, new_style, old_style file_url <- "https://www.cmm.in.tum.de/public/paper/FRASER/hg19_NCBI2UCSC.txt" message(paste0("Downloading seqlevelStyle conversion dict: "), file_url) - response <- GET(file_url, write_disk(conversion_dict_path, overwrite = TRUE)) + response <- httr::GET(file_url, write_disk(conversion_dict_path, overwrite = TRUE)) if (response$status_code == 200) { assembly_report <- fread(conversion_dict_path) @@ -726,7 +726,7 @@ updateSeqlevelsStyle <- function(bsgenome, genome_assembly, new_style, old_style file_url <- "https://www.cmm.in.tum.de/public/paper/FRASER/hg38_NCBI2UCSC.txt" message(paste0("Downloading seqlevelStyle conversion dict: "), file_url) - response <- GET(file_url, write_disk(conversion_dict_path, overwrite = TRUE)) + response <- httr::GET(file_url, write_disk(conversion_dict_path, overwrite = TRUE)) if (response$status_code == 200) { assembly_report <- fread(conversion_dict_path)