Looks at number of Reddit comments in the last 60 days

compare_user_activity.R

library(tidyverse)
library(glue)
library(jsonlite)
library(lubridate)

df <- c("user_a","user_b") %>%
  lapply(function(user){
    after <- ""
    df <- list()
    for(i in 1:40) {
      json <- fromJSON(glue("https://www.reddit.com/user/{user}/comments/.json?after={after}"))
      df[[i]] <- json$data$children$data
      after <- json$data$after
    }
    df %>% bind_rows() %>% 
      select(author,created_utc) %>% 
      mutate(date_time = lubridate::as_datetime(created_utc)) %>% 
      filter(!duplicated(date_time)) %>%
      return()
  }) %>% bind_rows()

df %>% 
  filter(date_time > max(date_time) - days(60)) %>%
  group_by(author) %>%
  summarise(n = n()) %>% knitr::kable()