18 lines
470 B
R
18 lines
470 B
R
#Convert to an XML tree
|
|
xmltree <- xmlTreeParse(str)
|
|
|
|
#Retrieve the students, and how many there are
|
|
students <- xmltree$doc$children$Students
|
|
nstudents <- length(students)
|
|
|
|
#Get each of their names
|
|
studentsnames <- character(nstudents)
|
|
for(i in 1:nstudents)
|
|
{
|
|
this.student <- students$children[i]$Student
|
|
studentsnames[i] <- this.student$attributes["Name"]
|
|
}
|
|
|
|
#Change the encoding so that Emily displays correctly
|
|
Encoding(studentsnames) <- "UTF-8"
|
|
studentsnames
|