add new file

xjsun1221 · Jul 27, 2023 · 913e1a8 · 913e1a8
1 parent bd1b886
commit 913e1a8
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/2_geo_id.R b/R/2_geo_id.R
@@ -37,14 +37,15 @@ geo_download <-  function(gse,by_annopbrobe = TRUE,
   }
   if(by_annopbrobe){
     if(!file.exists(paste0(destdir,"/",gse,"_eSet.Rdata"))){
-      tryCatch({
-        eSet <- AnnoProbe::geoChina(gse, destdir = destdir)
-      },error = function(e){
+      eSet <- tryCatch({AnnoProbe::geoChina(gse, destdir = destdir)
+      },error = function(e){555})
+
+      if(eSet == 555){
         warning("This data is not indexed by AnnoProbe, downloaded by GEOquery")
         eSet <- GEOquery::getGEO(gse,destdir = destdir,getGPL = FALSE)
         gset = eSet
         save(gset,file = paste0(destdir,"/",gse,"_eSet.Rdata"))
-      })
+      }
     }else{
       suppressWarnings(load(paste0(destdir,"/",gse,"_eSet.Rdata")))
       eSet = gset