add a function that is retrying a request if server sending some error

[defuneste]

No description provided.

[defuneste]

This is one is specifically needed here

cori.data.fcc/R/dl_nbm.R

Lines 44 to 58 in cfa68e8

	for (i in seq_len(nrow(one_release_to_dl))) {
	dest_file <- paste0(path_to_dl, "/",
	one_release_to_dl$file_name[i],
	".zip")
	if (file.exists(dest_file)) {
	print(paste(dest_file, "already downloaded, skipping it"))
	next
	}
	try(utils::download.file(url = paste0(base_url, one_release_to_dl$id[i], "/1"),
	destfile = dest_file,
	headers = c("User-Agent" = user_agent), ...))
	}

where it should check the result of an upload and retry before looping (apply should be used also)