Я хотел бы динамически изменить документ XML с использованием R и xml2: мой подход заключается в том, чтобы подготовить параметры в кадре данных и просто передать эти параметры в функцию, которая будет изменять документ XML.
library(xml2)
doc <- xml2::read_xml('<CATALOG>
<PLANT myid="1">
<COMMON>Bloodroot</COMMON>
<BOTANICAL>Sanguinaria canadensis</BOTANICAL>
<ZONE>4</ZONE>
<LIGHT>Mostly Shady</LIGHT>
<PRICE>$2.44</PRICE>
<AVAILABILITY>031599</AVAILABILITY>
</PLANT>
<PLANT myid="2">
<COMMON>Columbine</COMMON>
<BOTANICAL>Aquilegia canadensis</BOTANICAL>
<ZONE>3</ZONE>
<LIGHT>Mostly Shady</LIGHT>
<PRICE>$9.37</PRICE>
<AVAILABILITY>030699</AVAILABILITY>
</PLANT>
<PLANT myid="3">
<COMMON>Marsh Marigold</COMMON>
<BOTANICAL>Caltha palustris</BOTANICAL>
<ZONE>4</ZONE>
<LIGHT>Mostly Sunny</LIGHT>
<PRICE>$6.81</PRICE>
<AVAILABILITY>051799</AVAILABILITY>
</PLANT>
<PLANT myid="4">
<COMMON>Cowslip</COMMON>
<BOTANICAL>Caltha palustris</BOTANICAL>
<ZONE>4</ZONE>
<LIGHT>Mostly Shady</LIGHT>
<PRICE>$9.90</PRICE>
<AVAILABILITY>030699</AVAILABILITY>
</PLANT>
<PLANT myid="5">
<COMMON>Dutchman\'s-Breeches</COMMON>
<BOTANICAL>Dicentra cucullaria</BOTANICAL>
<ZONE>3</ZONE>
<LIGHT>Mostly Shady</LIGHT>
<PRICE>$6.44</PRICE>
<AVAILABILITY>012099</AVAILABILITY>
</PLANT>
<PLANT myid="6">
<COMMON>Ginger, Wild</COMMON>
<BOTANICAL>Asarum canadense</BOTANICAL>
<ZONE>3</ZONE>
<LIGHT>Mostly Shady</LIGHT>
<PRICE>$9.03</PRICE>
<AVAILABILITY>041899</AVAILABILITY>
</PLANT>
<PLANT myid="7">
<COMMON>Hepatica</COMMON>
<BOTANICAL>Hepatica americana</BOTANICAL>
<ZONE>4</ZONE>
<LIGHT>Mostly Shady</LIGHT>
<PRICE>$4.45</PRICE>
<AVAILABILITY>012699</AVAILABILITY>
</PLANT>
</CATALOG>'
)
xpath <- "//PLANT[@myid='2']"
xml_find_all(doc,xpath)
newxml <- function(xmldoc, xpath, newattr) {
#
VarName <- xml2::xml_find_all(xmldoc, xpath)
xml_attr(VarName, "Name") <- newattr
}
Теперь, если я хочу изменить этот XML-документ, состоящий из тысяч растений на основе идентификатора (я могу сохранить xpath и новое значение в кадре данных или в векторе), как мне поступить?
Я попробовал следующее:
do.call(newxml,list(xmldoc = doc, xpath= dftest$xpath,
newattr = dftest$newname))
Но это не работает, это говорит мне:
Error in xpath_search(x$node, x$doc, xpath = xpath, nsMap = ns, num_results = Inf) :
Expecting a single string value: [type=character; extent=5].
Очевидно, что в R есть что-то большое, что мне не хватает, но я не могу понять, что, пожалуйста, не стесняйтесь предложить лучший подход к этой проблеме.