每个数据帧行到带有RPS限制的httr正文请求

例如，我有一个包含两个变量的数据框。我想将每一行的请求发布到服务器

我已经做到了：

lapply(seq_along(df$x), function(x){
       POST(some_url, accept_json(),
       add_headers(Authorization = 'Bearer {secret_key})',
       body = as.list(df[x,]), encode = 'json')
})

在服务器达到RPS限制之前，它可以正常工作

如何以最佳方式处理此问题？我是否应该将每个429HTTP错误提取到另一个列表并重复POST请求，依此类推？或者我应该将我的列表切片为等于服务器RPS的样本？

---

请提供两种变体的帮助：）

您应该遵守服务器的费率限制。例如，向函数添加一个

Sys.sleep（）

调用以适当延迟请求