ve_query.R
Ironholds (Oliver Keyes)
Actions

Authored By

	Ironholds
	Feb 27 2015, 12:33 AM

Size

1 KB

Referenced Files

None

Subscribers

None

ve_query.R
View Options

	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")