Revision as of 11:51, 5 September 2021 (view source) Shuisman (talk \| contribs) m (→‎{{header\|Mathematica}}) ← Older edit		Revision as of 22:25, 8 December 2021 (view source) rosettacode>Jetstream (→‎{{header\|R}}) Newer edit →
Line 3,114: =={{header\|R}}== {{libheader\|XML (R)}} <lang R> ~~<lang R>## Require the XML package you can download from http://www.omegahat.org/RSXML/~~ library("XML") doc <- xmlInternalTreeParse("test3.xml") # ~~1st Task:~~ Retrieve the first "item" element ~~(firstItemElement <-~~ getNodeSet(doc, "//item")[[1]]) # 2nd task: Perform an action on each "price" element (print it out)▼ prices <- sapply(getNodeSet(doc, "//price"), xmlValue)▼ ▲# ~~2nd task:~~ Perform an action on each "price" element ~~(print it out)~~ ~~for(i in 1:length(prices)) print(prices[i])~~ ▲~~prices <-~~ sapply(getNodeSet(doc, "//price"), xmlValue) # 3rd Task: Get an array of all the "name" elements▼ (namesArray <- sapply(getNodeSet(doc, "//name"), xmlValue))</lang>▼ ▲# ~~3rd Task:~~ Get an array of all the "name" elements ▲~~(namesArray <-~~ sapply(getNodeSet(doc, "//name"), xmlValue)~~)</lang>~~ </lang> =={{header\|Racket}}==

XML/XPath (view source)