reviews_truther_global.R

library(mongolite)

# Connections to mongo
instagram <- mongo(collection = "InstagramV4", db = "DeepDress", url = "mongodb://localhost", verbose = FALSE)
matches <- mongo(collection = "MatchesV4", db = "DeepDress", url = "mongodb://localhost", verbose = FALSE)
corrections <- mongo(collection = "CorrectionsV4", db = "DeepDress", url = "mongodb://localhost", verbose = FALSE)

# Get Instagram data we saved earlier
ids.df <- instagram$find(fields = '{"_id" : 1, "payload.created_time" : 1}')
ids.df.simple <- data.frame(id = ids.df$`_id`,
                       created_time = ids.df$payload$created_time,
                       stringsAsFactors = FALSE)

# Reorder by newest
ids.df.simple <- ids.df.simple[order(-as.numeric(ids.df.simple$created_time)), ]

# What has already been corrected by users
ids.done <- corrections$find(fields = '{"id" : 1}') # What has already been corrected

# What's left
ids.df.todo <- setdiff(ids.df.simple$id, ids.done$id)