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