Итерация для многих строк в соответствии с API;

Question

Я пытаюсь внести изменения в код для этого вопроса, чтобы повысить производительность.Я хотел бы иметь это, но возможно без цикла for с использованием только lapply.

Вот пример того, что я пытаюсь:

users = df$userid
for (j in 1:round((length(users)+99)/100)) {
  userid = paste0(users[((j-1+.01)*100):(ifelse(j*100>length(users), length(users),j*100))],collapse = ";")
  qs <- lapply(userid, stack_users("questions", num_pages=1000000, pagesize=100, filter="withbody")) then do.call(rbind.data.frame, qs)
  print(j)
}