改进R中的现有环路和延迟

我正在寻找一种不同的方法来改进我的循环。我得到了一个函数

patient\u ID\u extract（）

获取一个patient\u编号，它将从API键中取出记录。API密钥将每5分钟重置300的限制

我的第一个工作方法是编写一个循环并设置一个时间延迟。这将从ID字符串集合中逐个提取患者编号

for ( i in patient_number){ 
  patients[[i]] <- patient_ID_extract(i, api_key)
  Sys.sleep(1.5)
}

用于（i住院病人编号）{
患者[[i]]请解释：是目标应用程序（由api_键值提供）每5分钟拒绝300多个请求吗？如果是，只需运行一个循环，从
last_index_value+1
到
last_index_value+301
，然后运行
Sys.sleep（300）
API中有一个病人编号参数。它在5分钟内拒绝300个以上的请求。如果你接受300个请求，你必须等待5分钟再接受300个请求。我在哪里添加
最后一个索引值+301
？@carlwitthoftb基本上是一个双循环，内循环以300个为单位运行，外循环以300个为单位递增调整indexPlease的“乘数”解释：是目标应用程序（由api_键值提供）每5分钟拒绝300个以上的请求吗？如果是，只需运行一个从
last_index_value+1
到
last_index_value+301
的循环，然后
Sys.sleep（300）
API中有一个病人编号参数。它在5分钟内拒绝300个以上的请求。如果你接受300个请求，你必须等待5分钟再接受300个请求。我在哪里添加
最后一个索引值+301
？@carlwitthoftb基本上是一个双循环，内循环以300个为单位运行，外循环以300个为单位递增调整指数的“乘数”
patient_number <- c("10523563", "08989388", "12338490", "11362265", "08732885", "06464116", 
        "02841570", "09966472", "11260599", "06797991", "11047641", "09538121", 
        "01298039", "00875727", "SC464438", "11361061", "SC294938", "02450551", 
        "09447238", "12229772", "10562525", "11834746", "08226516", "11480020", 
        "SC255490", "11794931", "01298989", "09782645")