R/getRecentThreads.R

In sf585978/RedditRandomizer: Reddit Randomizer: Collecting Samples of Reddit Users for Online Field Experiments

#' Get Reddit Top Threads
#'
#' @param subreddit The name of a subreddit as it appears in its url
#' @return A vector of urls beginning with /r/ for the top posts from the last 24 hours for the given subreddit
#' @export
#' @example
#' getRecentThreads("politics")
getRecentThreads <- function(subreddit) {
  require(httr)
  require(RJSONIO)
  cat(paste("Now getting information for: ", subreddit, sep = ""), sep = "\n")
  subredditURL <- "https://oauth.reddit.com/r/"
  urlTail <- "/top/?t=day.json?limit=1000"
  data <- GET(paste(subredditURL, subreddit, urlTail, sep = ""),
              user_agent("MY_USER_AGENT"),
              config(token = token))
  data <- fromJSON(content(data, "text"))
  links <- character(length(data$data$children))
  for (i in 1:length(data$data$children)) {
    links[i] <- data$data$children[[i]]$data$permalink
  }
  return(links)
}