在for循环中加快网络搜索速度？

Question

我有一个5500种拉丁名称的列表，这些名称我想找到其通用名称。为此，我正在运行一个循环，该循环在Wikipedia中搜索拉丁名称，然后从生成的网页中抓取通用名称。

此处提供代码：

names <- vector()
for (i in binomial){
  session <- html_session('https://www.wikipedia.org/')
  form <- html_form(session)[[1]] %>%
    set_values(search = i)
  submitted <- submit_form(session, form)
  name <- submitted %>%
    html_nodes(xpath = '//*[@id="firstHeading"]') %>%
    html_text()
  names <- append(names, name)
}

二项式是拉丁名称的列表。

这是一个非常耗时的过程，是否有任何方法可以优化此代码以加快速度？