Quellcode durchsuchen

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

pull/10/head
janwey vor 1 Jahr
Ursprung
Commit
86d3cd98ad
1 geänderte Dateien mit 2 neuen und 0 gelöschten Zeilen
  1. 2
    0
      collecto.R

+ 2
- 0
collecto.R Datei anzeigen

@@ -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 = "")

Laden…
Abbrechen
Speichern