소스 검색

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

pull/10/head
janwey 1 년 전
부모
커밋
86d3cd98ad
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2
    0
      collecto.R

+ 2
- 0
collecto.R 파일 보기

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

Loading…
취소
저장