if (FALSE) {
# add text to an activity network
net_activity <- collect_yt |>
Create("activity") |> AddText(collect_yt)
# network
net_activity$nodes
net_activity$edges
}
if (FALSE) {
# add text to an actor network ignoring references to actors at
# the beginning of comment text
net_actor <- collect_yt |>
Create("actor") |>
AddText(collect_yt, repliesFromText = FALSE)
# network
net_actor$nodes
net_actor$edges
}
Run the code above in your browser using DataLab