Rate limit for deleting files

[ThierryO]

When creating a new version with delete_latest_files = TRUE, I'm hitting a Zenodo rate limit (100 deletions per 1 min)

Maybe slow the loop down by adding Sys.sleep(0.6) to

zen4R/R/ZenodoManager.R

Line 755 in ecbd483

invisible(lapply(out$files, function(x){ self$deleteFile(out$id, x$id)}))

[eblondel]

Thanks @ThierryO i'll have a look asap.

[eblondel]

@ThierryO I see you set 0.6 as sleeping time, any reason for this value? did you test other values?

[ThierryO]

1 min per 100 requests = 60 sec / 100 requests = 0.6 sec / request. So setting sleeping time to 0.6 makes sure that you never do more than 100 request per minute.

I've tried different values. 0.3 is too short, 0.4 worked for https://zenodo.org/record/5838468.

[ThierryO]

I uses this code

zen_files <- zenodo$getFiles(myrec$id)
map_chr(zen_files, "id") %>%
  sort() %>%
  walk(
    function(fid) {
      message(fid)
      zenodo$deleteFile(recordId = myrec$id, fileId = fid)
      Sys.sleep(0.4)
    }
  )