如何使用xml2包將數據框轉換爲xml？

我正在嘗試使用xml2更新新節點的xml文件。這很容易，如果我只是手動寫的一切文字，如何使用xml2包將數據框轉換爲xml？

oldXML <- read_xml("<Root><Trial><Number>3.14159 </Number><Adjective>Fast </Adjective></Trial></Root>")

，但我正在開發，將運行計算，然後把這些值到XML的應用程序，所以我需要的性格和變量的組合。它結束了看起來像：

var1 <- 4.567 
var2 <- "Slow" 
newLine <- read_xml(paste0("<Trial><Number>",var1," </Number><Adjective>",var2," </Adjective></Trial>")) 
xml_add_child(oldXML,newLine)

我懷疑有一個更缺憾的方式來做到這一點比使用paste0，但我不能讓別的工作。我想能夠只是指示它作爲參考來更新XML的數據幀，使得它能夠創造新的考驗：

<Trial> 
    <Number>df$number[1]</Number> 
    <Adjective>df$adjective[1]</Adjective> 
</Trial> 
<Trial> 
    <Number>df$number[2]</Number> 
    <Adjective>df$adjective[2]</Adjective> 
</Trial>

有什麼辦法創造大約是時尚的新的審判節點，或者至少比使用paste0插入變量更自然？這是XML包比xml2更好嗎？

來源

2017-08-28 RichardMNIxon

嘗試'rio :: export（dat，「dat.xml」）'看看它是否給你一個你喜歡的XML文件。 – Thomas

錯誤：對象'read_xls'不是由'namespace：readxl'導出的 – RichardMNIxon

如果你有你的新的價值觀在這樣的data.frame：

vars_xml <- lapply(purrr::transpose(vars), 
        function(x) { 
         as_xml_document(list(Trial = lapply(x, as.list))) 
        })

那麼你可以添加：

vars <- data.frame(Number = c(4.567, 3.211), 
        Adjective = c("Slow", "Slow"), 
        stringsAsFactors = FALSE)

如下，你可以將其轉換的xml_document的列表新的節點到原始的xml：

for(trial in vars_xml) xml_add_child(oldXML, trial)

我不知道這比你的好paste的做法。無論哪種方式，你都可以將它封裝在一個函數中，這樣你只需要寫一次醜陋的代碼。

來源

2017-08-29 01:58:32 Ista

謝謝，我的方法不僅僅是每個節點有兩個值，所以這應該至少比較清晰。 – RichardMNIxon

如何使用xml2包將數據框轉換爲xml？

回答

相關問題