From f4c3819d9133ad462d03e29ee4fbfcfea374db76 Mon Sep 17 00:00:00 2001 From: AtaJadidAhari Date: Mon, 13 Jan 2025 17:13:12 +0100 Subject: [PATCH] specify httr in write_disk --- R/helper-functions.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/helper-functions.R b/R/helper-functions.R index 26dfb77..5f95e3c 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 <- httr::GET(file_url, write_disk(conversion_dict_path, overwrite = TRUE)) + response <- httr::GET(file_url, httr::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 <- httr::GET(file_url, write_disk(conversion_dict_path, overwrite = TRUE)) + response <- httr::GET(file_url, httr::write_disk(conversion_dict_path, overwrite = TRUE)) if (response$status_code == 200) { assembly_report <- fread(conversion_dict_path)