Script para analizar la base de moodle con R. Antes hay que instalar algunas cosas.¶
Ver: http://www.softwarelibre.edu.uy/tiki-index.php?page=Integrando+R+y+MySQL
El scritp¶
# Me conecto a la base de datos
library("RMySQL")
conex <- dbConnect(MySQL(),user="urdata", password="eva1854", dbname="moodle19", host="localhost")
# La cantidad de usuarios
cant.usuarios=dim(dbGetQuery(conex, "select * from mdl_user where deleted=0 and confirmed=1"))[1]
cant.usuarios
# La cantidad de cursos
cant.cursos=dim(dbGetQuery(conex, "select * from mdl_course where visible=1"))[1]
cant.cursos
# La cantidad de cursos en construccion
cant.cursos.enconst=dim(dbGetQuery(conex, "select * from mdl_course where visible=0"))[1]
cant.cursos.enconst
# La cantidad de categorías
cant.categorias=dim(dbGetQuery(conex, "select * from mdl_course_categories where visible=1"))[1]
cant.categorias
# La cantidad de foros
cant.foros=dim(dbGetQuery(conex, "select * from mdl_forum"))[1]
cant.foros
# La cantidad de grupos
cant.grupos=dim(dbGetQuery(conex, "select * from mdl_groups"))[1]
cant.grupos
# La cantidad de tareas
cant.tareas=dim(dbGetQuery(conex, "select * from mdl_assignment"))[1]
cant.tareas
# Recursos
cant.recursos=dim(dbGetQuery(conex, "select * from mdl_resource"))[1]
cant.recursos
# Chats
cant.chats=dim(dbGetQuery(conex, "select * from mdl_chat"))[1]
cant.chats
# Glosarios
cant.glosarios=dim(dbGetQuery(conex, "select * from mdl_glossary"))[1]
cant.glosarios
# Cuestionarios
cant.cuestionarios=dim(dbGetQuery(conex, "select * from mdl_quiz"))[1]
cant.cuestionarios
# Wikis
cant.wikis=dim(dbGetQuery(conex, "select * from mdl_wiki"))[1]
cant.wikis
# Me desconecto
dbDisconnect(conex)
# Tratando de presentar mejor la cosa
# Armo un dataframe con el vector de datos
EVAcuadro=data.frame(date(),cant.usuarios,cant.cursos,
cant.cursos.enconst,cant.categorias,cant.foros,cant.tareas,
cant.grupos,cant.recursos,cant.chats,cant.glosarios,cant.cuestionarios,cant.wikis)
# Le agrego los nombres
names(EVAcuadro)=c("Fecha","Cantidad de usuarios","Cantidad de cursos activos","Cantidad de cursos ocultos","Cantidad de categorías","Cantidad de Foros","Cantidad de Asignaciones de Tareas","Cantidad de Grupos","Cantidad de Recursos","Cantidad de Chats","Cantidad de Glosarios","Cantidad de Cuestionarios","Cantidad de Wikis")
# Traspongo para que se vea mejor
EVAcuadro=t(EVAcuadro)
# Imprimo la tabla
EVAcuadro
# Guardo la tabla
write.csv(EVAcuadro,"tablita-eva.csv")
Ejecutarlo desde consola¶
R --no-save < moodle-est-grales_v1.0.r