Data commit

Task/XML-Input/R/xml-input-1.r

@@ -0,0 +1,13 @@
+library(XML)
+#Read in XML string
+str <- readLines(tc <- textConnection('<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>'))
+close(tc)
+str

Task/XML-Input/R/xml-input-2.r

@@ -0,0 +1,18 @@
+#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