Ver: http://www.softwarelibre.edu.uy/tiki-index.php?page=Integrando+R+y+MySQL
# 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")
R --no-save < moodle-est-grales_v1.0.r