library(tidyverse)
library(RedditExtractoR)
library(igraph)
reddit_links <- reddit_urls(search_terms = "Birmingham schools LGBT", cn_threshold = 250)
thread.1 <- reddit_content(reddit_links$URL[1])
|
| | 0%
|
|==================================================================================================| 100%
head(thread.1)
a <- user_network(thread.1, include_author = FALSE, agg = TRUE)
a$plot
LS0tDQp0aXRsZTogIlJlZGRpdCBFeHRhY3Rpb24iDQpvdXRwdXQ6DQogIGh0bWxfbm90ZWJvb2s6IGRlZmF1bHQNCiAgaHRtbF9kb2N1bWVudDoNCiAgICBkZl9wcmludDogcGFnZWQNCiAgcGRmX2RvY3VtZW50OiBkZWZhdWx0DQotLS0NCg0KDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShSZWRkaXRFeHRyYWN0b1IpDQpsaWJyYXJ5KGlncmFwaCkNCmBgYA0KDQpgYGB7cn0NCnJlZGRpdF9saW5rcyA8LSByZWRkaXRfdXJscyhzZWFyY2hfdGVybXMgPSAiQmlybWluZ2hhbSBzY2hvb2xzIExHQlQiLCBjbl90aHJlc2hvbGQgPSAyNTApDQpgYGANCg0KYGBge3J9DQp0aHJlYWQuMSA8LSByZWRkaXRfY29udGVudChyZWRkaXRfbGlua3MkVVJMWzFdKQ0KdGhyZWFkLjIgPC0gcmVkZGl0X2NvbnRlbnQocmVkZGl0X2xpbmtzJFVSTFsyXSkNCnRocmVhZC4zIDwtIHJlZGRpdF9jb250ZW50KHJlZGRpdF9saW5rcyRVUkxbM10pDQpgYGANCg0KDQpgYGB7cn0NCmhlYWQodGhyZWFkLjEpDQpgYGANCg0KYGBge3J9DQphIDwtIHVzZXJfbmV0d29yayh0aHJlYWQuMSwgaW5jbHVkZV9hdXRob3IgPSBGQUxTRSwgYWdnID0gVFJVRSkNCmBgYA0KDQoNCmBgYHtyIGZpZy53aWR0aD0xMCwgZmlnLmFsaWduPSdjZW50ZXInfQ0KYSRwbG90DQpgYGANCg0K