如何在R中的节点之前和之后插入节点html

Question

我有以下情况吗？

require(xml2)

sup_before <- read_xml("<sup>R$</sup>")
sup_after <- read_xml("<sup>,00</sup>")

node <- read_xml('<tr>
    <td style="text-align:center;" class="alter_table"> 555563 </td>
    <td style="text-align:center;" class="alter_table"> 1217298 </td></tr>
')

我想在这样的数值之前和之后插入一个sup html代码。

结果-

<td style="text-align:center;" class="alter_table"> <sup>R$</sup> 555563 <sup>,00</sup> </td>

<td style="text-align:center;" class="alter_table"> <sup>R$</sup>1217298<sup>,00</sup> </td>

Answer 1

一种技术是获取<td>标记中的文本节点，并在所需数据之前和之后插入同级节点。例如

for (tdtext in xml_find_all(node, "td/text()")) {
  xml_add_sibling(tdtext, sup_before, .where="before")
  xml_add_sibling(tdtext, sup_after, .where="after")
}