From 1a913856c2c847a3ad619f6d1dc8392a6929d34d Mon Sep 17 00:00:00 2001 From: Eric Scott Date: Tue, 10 Sep 2024 09:38:23 -0700 Subject: [PATCH] add retry to .dl_mol_kegg --- R/get_mol_kegg.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/get_mol_kegg.R b/R/get_mol_kegg.R index c37c97e..f7ef517 100644 --- 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()