library(WMUtils)
data <- global_query("SELECT rev_user_text, COUNT(*) AS edits, MAX(rev_timestamp) AS recent_edit
                      FROM revision INNER JOIN tag_summary
                     ON ts_rev_id = rev_id
                     WHERE rev_timestamp >= '20141125203901'
                     AND rev_user > 0
                     AND ts_tags RLIKE('visual')
                     GROUP BY rev_user_text;")
data$recent_edit <- as.numeric(data$recent_edit)
aggregated_data <- data[, j = {
  
  if(length(recent_edit[recent_edit > 20150126000000]) == 0){
    NULL
  } else {
    home_wiki <- project[edits == max(edits)]
    if(length(home_wiki) > 1){
      home_wiki <- home_wiki[1]
    }
    output <- data.table(edits = sum(edits), home_wiki = home_wiki)
    output
  }
  
}, by = "rev_user_text"]
setnames(aggregated_data,1,"username")
aggregated_data <- aggregated_data[order(aggregated_data$edits, decreasing = TRUE),]
write.table(aggregated_data[1:500,], "top_ve_editors.tsv", row.names = FALSE, quote = TRUE, sep = "\t")