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; 
 
Anuncios

“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&#8221;)
> 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”