add retry to .dl_mol_kegg

Meredith-Lab · Sep 10, 2024 · 1a91385 · 1a91385
1 parent 7f7bb57
commit 1a91385
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/get_mol_kegg.R b/R/get_mol_kegg.R
@@ -122,7 +122,8 @@ get_compounds_kegg <- function(pathway){
   }
   req_names <- 
     httr2::request("https://rest.kegg.jp/get") %>% 
-    httr2::req_url_path_append(paste(ids, collapse = "+"))
+    httr2::req_url_path_append(paste(ids, collapse = "+")) %>% 
+    httr2::req_retry(max_tries = 3)
 
   resp_names <- httr2::req_perform(req_names) %>% 
     httr2::resp_body_string()