拆分htmlParse'；在保留类的同时创建HTML文档

我想把你的电话号码从你的手机里删掉。问题是，它可以返回多个答案，我希望得到所有答案，但我在拆分解析的HTML文档时遇到了一个问题

这是我的密码：

  # example url for reproducibility 
  url_ <- "http://www.pagesjaunes.fr/recherche/departement/zc-de-vignolles-beaune-21/pagot-&-savoie---espace-aubade"
  response <- GET(url_)
  doc <- content(response, type="text/html", encoding = "UTF-8")
  parseddoc <- htmlParse(doc)

  # I think the problem lies in this next line, let's call it "line A" : 
  boxes <- xpathSApply(parseddoc, "//article[@class='bi-bloc blocs clearfix  bi-pro']")

  foreach(box = boxes) %do% {
    # and also in this line, let's call it "line B" :
    return_line$PJ_phone_number <- xpathApply(box, "//div[@class='item bi-contact-tel']", xmlValue)
  }
}

#再现性示例url
如果在B行用
xmlDoc（box）
替换
box
，它是否能满足您的需要？不。很抱歉，我忘记引用错误消息：{:task 1 failed-“replacement有0行，data有1”

好吧，你的代码示例不完整，但似乎你没有正确使用foreach结构。请阅读

？foreach

，尤其是

它的目的是返回一个值（默认情况下为列表），而不是引起副作用。您在B行的作业是副作用。我认为这与您最初的问题不同。是的，我没有包含完整的代码，但我正在foreach循环中的B行之后做其他事情。如果您将
框
替换为
xmlDoc（box），它是否符合您的要求
在B行？没有。很抱歉，我忘记引用错误消息：{:task 1 failed-“replacement有0行，data有1”

好吧，您的代码示例不完整，但您似乎没有正确使用foreach构造。请阅读

？foreach

，尤其是

它的目的是返回值（默认情况下为列表），而不是引起副作用。

。您在B行上的作业是副作用。我认为这与您最初的问题不同。是的，我没有包括完整的代码，但我正在foreach循环中B行之后做其他事情。