Browse Source

Edit: we should also include client-data

pull/1/head
janwey 1 year ago
parent
commit
bef44fcd2f
1 changed files with 5 additions and 11 deletions
  1. 5
    11
      collecto.R

+ 5
- 11
collecto.R View File

@@ -137,15 +137,6 @@ for(i in 1:length(twitter_tw)){
}
}

# Control output, uncomment if needed
twitter_timedate
twitter_client
twitter_name
twitter_rts
twitter_fav
twitter_url
twitter_txt

time <- sub(pattern = ".* ", x = twitter_timedate, replace = "")
time <- as.numeric(gsub(pattern = ":", x = time, replace = ""))
date <- sub(pattern = " .*", x = twitter_timedate, replace = "")
@@ -154,12 +145,13 @@ retw <- as.factor(twitter_rts)
favs <- as.factor(twitter_fav)
link <- as.character(twitter_url)
text <- as.character(twitter_txt)
clit <- as.character(twitter_client)

### Creating dataframe
twitter <- data.frame(cbind(date, time, retw, favs, text, link))
twitter <- data.frame(cbind(date, time, retw, favs, text, link, clit))

#### Clean-Up
rm(list = c("date", "time", "retw", "favs", "text", "link"))
rm(list = c("date", "time", "retw", "favs", "text", "link", clit))

twitter <- within(data = twitter, expr = {
date <- as.numeric(as.character(date));
@@ -330,3 +322,5 @@ mastodon <- within(data = mastodon, expr = {
link <- as.character(link);
})
# }}}



Loading…
Cancel
Save