假设我有以下20个地址，我想将列表分成4组，每组5个地址，并将每组顺序输入地理编码器。

library(tidyverse)

df <- tibble::tribble(
              ~num_street,           ~city, ~sate, ~zip_code,
        "976 FAIRVIEW DR",   "SPRINGFIELD",  "OR",    97477L,
          "19843 HWY 213",   "OREGON CITY",  "OR",    97045L,
            "402 CARL ST",         "DRAIN",  "OR",    97435L,
           "304 WATER ST",        "WESTON",  "OR",    97886L,
   "5054 TECHNOLOGY LOOP",     "CORVALLIS",  "OR",    97333L,
         "3401 YACHT AVE",  "LINCOLN CITY",  "OR",    97367L,
      "135 ROOSEVELT AVE",          "BEND",  "OR",    97702L,
         "3631 FENWAY ST",  "FOREST GROVE",  "OR",    97116L,
       "92250 HILLTOP LN",      "COQUILLE",  "OR",    97423L,
          "6920 92ND AVE",        "TIGARD",  "OR",    97223L,
          "591 LAUREL ST", "JUNCTION CITY",  "OR",    97448L,
   "32035 LYNX HOLLOW RD",      "CRESWELL",  "OR",    97426L,
          "6280 ASTER ST",   "SPRINGFIELD",  "OR",    97478L,
      "17533 VANGUARD LN",     "BEAVERTON",  "OR",    97007L,
      "59937 CHEYENNE RD",          "BEND",  "OR",    97702L,
          "2232 42ND AVE",         "SALEM",  "OR",    97317L,
         "3100 TURNER RD",         "SALEM",  "OR",    97302L,
       "3495 CHAMBERS ST",        "EUGENE",  "OR",    97405L,
          "585 WINTER ST",         "SALEM",  "OR",    97301L,
        "23985 VAUGHN RD",        "VENETA",  "OR",    97487L
  )

我用来进行地理编码的代码是：

library(censusxy)

system.time({
  dropme_dta <- 
    cxy_geocode(df, 
                street = 'num_street', 
                city = 'city', 
                state = 'state', 
                zip = 'zip_code', 
                return = 'geographies', 
                class = 'dataframe', 
                output = 'full', 
                parallel = 8, 
                vintage = 4,
                timeout = 30)
})

我特别喜欢不使用循环并停留在tidyverse中的方法。也就是说，我认为可能有一种方法可以使用purrr::reduce()，但对于我的生活，我还没有能够弄清楚。
任何指针，我会非常感激！
P.S.我知道我可以将所有20个地址传递给地理编码器，但实际上我有大约400万个地址，我想通过打印批号来跟踪它的批次

• 编辑：* 基于评论中的反馈，我同意循环是最好的前进方式。这是我到目前为止所拥有的：

library(tidygeocoder)

df <- df %>% 
  group_by(group_id = row_number() %/% 5)

for (x in 0:max(df$group_id)) {
  cat(paste("\rgeocoding batch", x, "of", max(df$group_id), "\n"))
  Sys.sleep(1)
  df %>% 
    geocode(street = num_street, city = city, state = state, postalcode = zip_code, 
           method = "census", full_results = TRUE, api_options = list(census_return_type = 'geographies'))
}

但是我不知道如何迭代地建立df。如果我把geocode()函数赋给某个对象，它会在每次迭代时覆盖它。