#
options(stringsAsFactors=F)
#
#
library(getPass)
library(RMySQL)
#
#
username <- 'xwikiRO'
.pass <- getPass::getPass()
#
drv = dbDriver("MySQL")
con = dbConnect(drv,host="www.idisantiago.es", dbname="atriumkm", user=username, pass=.pass)
#
IDISgroupAdscriptions = dbGetQuery(con,statement="select * from atriumkm.xwikiobjects where XWO_NAME like '%XWiki.XWikiIDIS%' and XWO_CLASSNAME like '%Groups%' and length(XWO_NAME) = 19 and XWO_NUMBER > 0 order by XWO_NAME;")
#
groupMembers = dbGetQuery(con,statement="select * from atriumkm.xwikistrings where XWS_NAME = 'member';")
#
dbDisconnect(con)
dbUnloadDriver(drv)
#
IDISgaWithName <- merge(IDISgroupAdscriptions, groupMembers, by.x=c("XWO_ID"), by.y=c("XWS_ID"), all.x = TRUE)
#
nGroups <- data.frame(table(IDISgaWithName$XWS_VALUE))
duplicated <- nGroups[which(nGroups$Freq > 1),]
View(duplicated)
#