wordpress testing

test_R

library(stringr)
library(tidyr)


edges <- stream %>% filter(is.na(`User Mentions`) == F) %>% 
       select(Nickname, `Is a RT`, `User Mentions`)

#tagging retweets and mentions

edges <- edges %>% 
       dplyr::mutate( type = ifelse(edges$`Is a RT` == TRUE, 
                                    "retweet", "mention")) %>%
       select(-`Is a RT`)

#finding maximum length of User Mentions
menMax <- max(str_count(edges$`User Mentions`, "@"))

edges <- edges %>% 
       separate(`User Mentions`, c(as.character(1:menMax)),
                ",", extra = "merge", fill = "left")

#gathering all users mentioned into one column
edges <- edges %>% gather(from_col, to, 2:13 )

#cleaning NAs and removing from_col
edges <- edges %>% filter(is.na(to) == FALSE) %>% select(from = Nickname, to, type)

#remove @ signs

edges$to <- gsub('@','', edges$to)

#solve: count unique rows based on multiple columns???
links <- aggregate(rep(1, nrow(edges)), by = list(from = edges$from, to = edges$to, type = edges$type), sum)

links <- links[order(links$from, links$to),]

colnames(links)[4] <- "weight"
rownames(links) <- NULL