Rで「期間指定をして」、twitterテキストマイニングを行いたいのですが、期間指定の方法を教えてください。

前提・実現したいこと

ここに質問の内容を詳しく書いてください。

Rを用いて、twitterからテキストマイニングを行っています。
期間指定をしようとして、データを取り出したいのですが、以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

比較 (5) はアトミックおよびリスト型に対してだけ可能です
i Input ..1 is timestamp >= as.Date("2016-01-01").
Run rlang::last_error() to see where the error occurred.

該当のソースコード

＃＃library(lubridate)は読み込んでいます

tw_data <- search_tweets("胃潰瘍", n = 10000, include_rts = FALSE)

tw_time <- tw_data[["created_at"]] %>%
as.POSIXct(tz = "Etc/GMT") %>%
as.POSIXlt(tz = "Japan")

tw_data <- tw_data %>%
filter(timestamp >= as.Date("2016-01-01"),
timestamp >= as.Date("2017-01-01"))

試したこと

rlang::last_error()を見てみましたが、
i Input ..1 is timestamp >= as.Date("2016-01-01").
Backtrace:
2. dplyr::filter(...)
17. dplyr:::h(simpleError(msg, call))
と表示されて、どうしたらよいかわかりませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

search_tweetsの引数「since」と「until」に持たせるのがよいでしょう。
以下の方法はいかがでしょうか。

R
1# 期間指定
2since <- c("2016-01-01") # 00:00:00から
3until <- c("2016-01-31") # 23:59:59まで
4
5
6# ツイート取得
7tw_data <- search_tweets(q = "胃潰瘍",
8                         since = since, #開始期間
9                         until = until, #終了期間
10                         n=10000,
11                         include_rts = FALSE, #リツイートを含めない
12                         langs = "ja")