從R串列生成xml

我是 xml 的新手并在 R 中處理它。

我已經能夠使用該xml2包從 xml 檔案中讀取和檢索資訊，但事實證明，從 R 物件創建 xml 檔案更具挑戰性。

特別是，我想從 R 串列生成一個 xml 檔案。考慮下面的例子：

library(reprex)
library(xml2)

r_list <- list(person1 = list(starts = letters[1:3], ends = letters[4:6]), person2 = list(starts = LETTERS[1:4], ends = LETTERS[5:8]))
str(r_list)
#> List of 2
#>  $ person1:List of 2
#>   ..$ starts: chr [1:3] "a" "b" "c"
#>   ..$ ends  : chr [1:3] "d" "e" "f"
#>  $ person2:List of 2
#>   ..$ starts: chr [1:4] "A" "B" "C" "D"
#>   ..$ ends  : chr [1:4] "E" "F" "G" "H"

test1 <- xml2::as_xml_document((r_list))
#> Error: Root nodes must be of length 1

new_xml <- xml_new_root(.value = "category", name = "personList")

for(person in names(r_list)){
  xml_add_child(new_xml, as_xml_document(r_list[person]))
}

new_xml
#> {xml_document}
#> <category name="personList">
#> [1] <person1>ad</person1>
#> [2] <person2>AE</person2>

^{由reprex 包(v2.0.1)于 2021 年 11 月 25 日創建}

我嘗試使用該as_xml_document函式直接將串列強制轉換為 xml ，但出現錯誤Root nodes must be of length 1。

按照這個問題的想法，我嘗試創建帶有根節點和xml_add_child()此檔案的 xml檔案，但沒有得到預期的結果（請參閱代碼輸出）。在那個問題中，他們從 R 資料框而不是串列轉換。

我還想擁有個性化的標簽名稱并為這些標簽添加屬性。希望的輸出是：

<category name="personList">
    <pers name="person1">
        <starts>
            <value>a</value>
            <value>b</value>
            <value>c</value>
        </starts>
        <ends>
            <value>d</value>
            <value>e</value>
            <value>f</value>
        </ends>
    </pers>
    <pers name="person2">
        <starts>
            <value>A</value>
            <value>B</value>
            <value>C</value>
            <value>D</value>
        </starts>
        <ends>
            <value>D</value>
            <value>E</value>
            <value>F</value>
            <value>G</value>
        </ends>
    </pers>
</category>

感謝您的幫助，祝您有美好的一天

uj5u.com熱心網友回復：

R 串列屬性可以映射到 XML 屬性：

library(xml2)
library(tidyverse)

r_list <- list(person1 = list(starts = letters[1:3], ends = letters[4:6]), person2 = list(starts = LETTERS[1:4], ends = LETTERS[5:8]))
r_list

new_xml <- xml_new_root(.value = "category", name = "personList")

for (person in names(r_list)) {
  p <- list()
  p[["pers"]] <- list(
    starts = r_list[[person]]$starts %>% map(~list(value = list(.x))),
    ends = r_list[[person]]$ends %>% map(~list(value = list(.x)))
  )
  attr(p[["pers"]], "name") <- person
  
  xml_add_child(new_xml, as_xml_document(p))
}

write_xml(new_xml, "foo.xml")

輸出：

<?xml version="1.0" encoding="UTF-8"?>
<category name="personList">
  <pers name="person1">
    <starts>
      <value>a</value>
      <value>b</value>
      <value>c</value>
    </starts>
    <ends>
      <value>d</value>
      <value>e</value>
      <value>f</value>
    </ends>
  </pers>
  <pers name="person2">
    <starts>
      <value>A</value>
      <value>B</value>
      <value>C</value>
      <value>D</value>
    </starts>
    <ends>
      <value>E</value>
      <value>F</value>
      <value>G</value>
      <value>H</value>
    </ends>
  </pers>
</category>

uj5u.com熱心網友回復：

按照@Limey 的評論（查看此問題），我可以使用以下代碼生成所需的輸出（作為答案發布只是為了完整性，因為 @danlooo 答案也會產生相同的輸出）。

library(XML)

r_list <- list(person1 = list(starts = letters[1:3], ends = letters[4:6]), person2 = list(starts = LETTERS[1:4], ends = LETTERS[5:8]))
str(r_list)

category = newXMLNode("category", attrs = c(name="personList"))

for(person in names(r_list)){
  pers <- newXMLNode("pers", attrs = c(name = person), parent = category)
  startsn <- newXMLNode("starts", parent = pers)
  for(value in seq_along(r_list[[person]][["starts"]])){
    svalue <- newXMLNode("value", r_list[[person]][["starts"]][[value]], parent = startsn)
  }
  endsn <- newXMLNode("ends", parent = pers)
  for(value in seq_along(r_list[[person]][["ends"]])){
    evalue <- newXMLNode("value", r_list[[person]][["ends"]][[value]], parent = endsn)
  }
}
category

標籤：r xml xslt xml2

上一篇：如何將值從片段/活動傳遞給xml？

下一篇：innerHTML從XML到圖庫創建影像標簽