Loose metric. Running against the comments field from recentchanges, and it really /should/ be picking things up.

Loose metric

rc.df <- read.delim (file.path(getwd(), "Vpocalypse", "RecentChanges", "recentchanges.tsv"), header = TRUE, na.strings='NULL', as.is = TRUE, colClasses=c("user_editcount"="numeric"))

test <- grep(
  pattern = "
  (^revert\ to.+using)
  | (^reverted\ edits\ by.+using)
  | (^reverted\ edits\ by.+to\ last\ version\ by)
  | (^bot\ -\ rv.+to\ last\ version\ by)
  | (-assisted\ reversion)
  | (^(revert(ed)?|rv).+to\ last)
  | (^undo\ revision.+by)",
  rc.df$rc_comment,
  value = FALSE,
  ignore.case = TRUE,
  perl = TRUE)