From b055e04938ec079ac158ed0661391bcde63f4530 Mon Sep 17 00:00:00 2001
From: LiNk-NY <marcel.ramos@sph.cuny.edu>
Date: Mon, 11 Nov 2024 10:02:53 -0500
Subject: [PATCH] update url, refers to #1

Co-authored-by: simon boutry <simonboutry@gmail.com>
---
 R/getCurrentMaps.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/getCurrentMaps.R b/R/getCurrentMaps.R
index b604b44..1830161 100644
--- a/R/getCurrentMaps.R
+++ b/R/getCurrentMaps.R
@@ -52,7 +52,10 @@ getCurrentHumanMap <- function(){
     hgnc.table <- hgnc.table[is.ascii, ]
     return(hgnc.table)
   }
-  url <- "ftp://ftp.ebi.ac.uk/pub/databases/genenames/new/tsv/hgnc_complete_set.txt"
+  url <- paste0(
+    "https://storage.googleapis.com/public-download-files/",
+    "hgnc/tsv/tsv/hgnc_complete_set.txt"
+  )
   if(!file.exists("hgnc_complete_set.txt")){
     message(paste("Fetching human gene symbols from", url))
     download.file(url, destfile = "hgnc_complete_set.txt")