# NOT RUN {
# subreddit url to collect threads from
threadUrls <- c("https://www.reddit.com/r/xxxxxx/comments/xxxxxx/x_xxxx_xxxxxxxxx/")
redditData <- redditAuth %>%
Collect(threadUrls = threadUrls, waitTime = 3, writeToFile = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab