Getting my historical teacher record at University with R, XML, JSON

# My historical teacher record

library(XML)
library(jsonlite)
> sgaws <- GET('http://ws.unl.edu.ec/sgaws/wsacademica/sgaws_carga_horaria_docente?cedula=XXXXXXXXX&amp;id_oferta=45', authenticate('xxxxxxx','xxxxxxx'))
&gt; sgaws
Response [http://ws.unl.edu.ec/sgaws/wsacademica/sgaws_carga_horaria_docente?cedula=1103499966&amp;id_oferta=45]
  Date: 2014-10-17 10:22
  Status: 200
  Content-type: text/xml; charset=utf-8
  Size: 549 B
> xmlsga &lt;- xmlTreeParse(sgaws)
> xmlRoot(xmlsga)
> doc <- xmlRoot(xmlsga)
> xmlSApply(doc[[1]],xmlValue)
list()
> l <- xmlSApply(doc[[1]],xmlValue)
> print(l)
[&amp;quot;INGENIERO EN INFORMATICA&amp;quot;, &amp;quot;MILTON LEONARDO&amp;quot;, &amp;quot;LABANDA JARAMILLO&amp;quot;, [[&amp;quot;Ingenier\u00eda en Sistemas&amp;quot;, &amp;quot;PROCESO INVESTIGATIVO&amp;quot;, &amp;quot;0.00&amp;quot;, &amp;quot;5&amp;quot;, &amp;quot;B&amp;quot;], [&amp;quot;Ingenier\u00eda en Sistemas&amp;quot;, &amp;quot;PROCESO INVESTIGATIVO&amp;quot;, &amp;quot;0.00&amp;quot;, &amp;quot;5&amp;quot;, &amp;quot;A&amp;quot;], [&amp;quot;Ingenier\u00eda en Sistemas&amp;quot;, &amp;quot;PROCESO INVESTIGATIVO&amp;quot;, &amp;quot;0.00&amp;quot;, &amp;quot;5&amp;quot;, &amp;quot;C&amp;quot;], [&amp;quot;Ingenier\u00eda en Sistemas&amp;quot;, &amp;quot;PROGRAMACION AVANZADA&amp;quot;, &amp;quot;128.00&amp;quot;, &amp;quot;5&amp;quot;, &amp;quot;C&amp;quot;], [&amp;quot;Ingenier\u00eda en Sistemas&amp;quot;, &amp;quot;PROGRAMACION AVANZADA&amp;quot;, &amp;quot;128.00&amp;quot;, &amp;quot;5&amp;quot;, &amp;quot;A&amp;quot;], [&amp;quot;Ingenier\u00eda en Sistemas&amp;quot;, &amp;quot;PROGRAMACION AVANZADA&amp;quot;, &amp;quot;128.00&amp;quot;, &amp;quot;5&amp;quot;, &amp;quot;B&amp;quot;]]]
> xmlValue(l)
[1] &quot;[\&quot;INGENIERO EN INFORMATICA\&quot;, \&quot;MILTON LEONARDO\&quot;, \&quot;LABANDA JARAMILLO\&quot;, [[\&quot;Ingenier\\u00eda en Sistemas\&quot;, \&quot;PROCESO INVESTIGATIVO\&quot;, \&quot;0.00\&quot;, \&quot;5\&quot;, \&quot;B\&quot;], [\&quot;Ingenier\\u00eda en Sistemas\&quot;, \&quot;PROCESO INVESTIGATIVO\&quot;, \&quot;0.00\&quot;, \&quot;5\&quot;, \&quot;A\&quot;], [\&quot;Ingenier\\u00eda en Sistemas\&quot;, \&quot;PROCESO INVESTIGATIVO\&quot;, \&quot;0.00\&quot;, \&quot;5\&quot;, \&quot;C\&quot;], [\&quot;Ingenier\\u00eda en Sistemas\&quot;, \&quot;PROGRAMACION AVANZADA\&quot;, \&quot;128.00\&quot;, \&quot;5\&quot;, \&quot;C\&quot;], [\&quot;Ingenier\\u00eda en Sistemas\&quot;, \&quot;PROGRAMACION AVANZADA\&quot;, \&quot;128.00\&quot;, \&quot;5\&quot;, \&quot;A\&quot;], [\&quot;Ingenier\\u00eda en Sistemas\&quot;, \&quot;PROGRAMACION AVANZADA\&quot;, \&quot;128.00\&quot;, \&quot;5\&quot;, \&quot;B\&quot;]]]&quot;
> resultStr <- xmlValue(l)
> data <- jsonlite::fromJSON(resultStr)
> data
[[1]]
[1] &quot;INGENIERO EN INFORMATICA&quot;

[[2]]
[1] &quot;MILTON LEONARDO&quot;

[[3]]
[1] &quot;LABANDA JARAMILLO&quot;

[[4]]
     [,1]                     [,2]                    [,3]     [,4] [,5]
[1,] &quot;Ingeniería en Sistemas&quot; &quot;PROCESO INVESTIGATIVO&quot; &quot;0.00&quot;   &quot;5&quot;  &quot;B&quot; 
[2,] &quot;Ingeniería en Sistemas&quot; &quot;PROCESO INVESTIGATIVO&quot; &quot;0.00&quot;   &quot;5&quot;  &quot;A&quot; 
[3,] &quot;Ingeniería en Sistemas&quot; &quot;PROCESO INVESTIGATIVO&quot; &quot;0.00&quot;   &quot;5&quot;  &quot;C&quot; 
[4,] &quot;Ingeniería en Sistemas&quot; &quot;PROGRAMACION AVANZADA&quot; &quot;128.00&quot; &quot;5&quot;  &quot;C&quot; 
[5,] &quot;Ingeniería en Sistemas&quot; &quot;PROGRAMACION AVANZADA&quot; &quot;128.00&quot; &quot;5&quot;  &quot;A&quot; 
[6,] &quot;Ingeniería en Sistemas&quot; &quot;PROGRAMACION AVANZADA&quot; &quot;128.00&quot; &quot;5&quot;  &quot;B&quot; 

> data[1]
[[1]]
[1] &quot;INGENIERO EN INFORMATICA&quot;

> data[3]
[[1]]
[1] &quot;LABANDA JARAMILLO&quot;

> data[4]
[[1]]
     [,1]                     [,2]                    [,3]     [,4] [,5]
[1,] &quot;Ingeniería en Sistemas&quot; &quot;PROCESO INVESTIGATIVO&quot; &quot;0.00&quot;   &quot;5&quot;  &quot;B&quot; 
[2,] &quot;Ingeniería en Sistemas&quot; &quot;PROCESO INVESTIGATIVO&quot; &quot;0.00&quot;   &quot;5&quot;  &quot;A&quot; 
[3,] &quot;Ingeniería en Sistemas&quot; &quot;PROCESO INVESTIGATIVO&quot; &quot;0.00&quot;   &quot;5&quot;  &quot;C&quot; 
[4,] &quot;Ingeniería en Sistemas&quot; &quot;PROGRAMACION AVANZADA&quot; &quot;128.00&quot; &quot;5&quot;  &quot;C&quot; 
[5,] &quot;Ingeniería en Sistemas&quot; &quot;PROGRAMACION AVANZADA&quot; &quot;128.00&quot; &quot;5&quot;  &quot;A&quot; 
[6,] &quot;Ingeniería en Sistemas&quot; &quot;PROGRAMACION AVANZADA&quot; &quot;128.00&quot; &quot;5&quot;  &quot;B&quot; 
 

«Buceando» en datosabiertos.ec con «R» (… el Turismo de Loja)

> library(jsonlite)
> turismo <- fromJSON(«http://www.datosabiertos.ec/storage/f/2014-09-26T16%3A31%3A10.379Z/atractivosturisticosloja.json»)
> names(turismo[[1]])
[1] «Nombre»             «Altura»             «Calle»
[4] «Categoria»          «Ciudad/Canton»      «DistanciaAT»
[7] «Entorno»            «FrecuenciaDeAcceso» «Latitud»
[10] «Localidad»          «Longitud»           «Provincia»
[13] «SubTipo»            «Temperatura»        «Temporalidad»
[16] «Tipo»               «Alimentacion»       «CategoriaAlim»
[19] «Alojamiento»        «CategoriaAloj»      «Esparcimiento»
[22] «CategoriaEsp»       «EstadoVias»         «IVTerrestre»
[25] «SubTIpoIVTerrestre» «NombreCU»           «DistanciaCU»
[28] «NombreCU1»          «DistanciaCU1»       «CausasC»
[31] «Estado»
> nodos<-turismo[[1]]
> nodos$Nombre

[1] «Basilica del Cisne»
[2] «Centro Historico»
[3] «Iglesia Catedral de Loja»
[4] «Iglesia de San Sebastian»
[5] «Iglesia San Francisco»
[6] «Iglesia Santo Domingo»
[7] «Iglesia San Juan de Dios de El Valle»
[8] «Jardin Botanico Reinaldo Espinosa»
[9] «Monunentos de Loja»
[10] «MoliendaMalacatos»
[11] «Museo de la Dra. Matilde Hidalgo»
[12] «Museo del Banco Central del Ecuador»
[13] «Parroquia Cera»
[14] «Parque Colinar Pucara Podocarpus»
[15] «Parque Ecologico Orillas del Zamora»
[16] «Parque Nacional Podocarpus»
[17] «Parque Recreacional Jipiro»
[18] «Puerta de la Ciudad»
[19] «Romeria de la Virgen del Cisne»
[20] «Universidad Tecnica Particular de Loja»
[21] «Valle de Vilcabamba»