Przeglądaj źródła

Edit: fix issue with cbind() not being able to include the mode() of fdat

pull/10/head
janwey 1 rok temu
rodzic
commit
86d3cd98ad
1 zmienionych plików z 2 dodań i 0 usunięć
  1. 2
    0
      collecto.R

+ 2
- 0
collecto.R Wyświetl plik

@@ -144,6 +144,7 @@ time <- gsub(pattern = ":", x = time, replace = "")
date <- sub(pattern = " .*", x = twitter_timedate, replace = "")
date <- gsub(pattern = "-", x = date, replace = "")
fdat <- strptime(x = paste0(date, time), format = "%Y%m%d%H%M%S", tz = "CET")
fdat <- as.character(fdat)
retw <- as.factor(twitter_rts)
favs <- as.factor(twitter_fav)
link <- as.character(twitter_url)
@@ -318,6 +319,7 @@ time <- sub(pattern = "\\..*", x = time, replacement = "")
time <- gsub(pattern = ":", x = time, replacement = "")
#### full time
fdat <- strptime(x = paste0(date, time), format = "%Y%m%d%H%M%S", tz = "CET")
fdat <- as.character(fdat)

### Removing HTML-Tags from Toots
text <- gsub(pattern = "<.*?>", x = text, replacement = "")

Ładowanie…
Anuluj
Zapisz