1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
#' Get one or more user timelines
#'
#' `get_timeline()` returns the timeline of any Twitter user (i.e. what they
#' have tweeted). `get_my_timeline()` returns the home timeline for the
#' authenticated user (i.e. the tweets you see when you log into Twitter).
#' `r lifecycle::badge("deprecated")`
#' At most up to 3,200 of a user's most recent Tweets can be retrieved.
#'
#' @inheritParams TWIT_paginate_max_id
#' @inheritParams stream
#' @param user Character vector of screen names or user ids.
#' See [as_screenname()] for more details.
#' @param home Logical, indicating whether to return a "user" timeline
#' (the default, what a user has tweeted/retweeted) or a "home" timeline
#' (what the user would see if they logged into twitter).
#' @param check `r lifecycle::badge("deprecated")`
#' @param ... Further arguments passed on as parameters in API query.
#' @return A tbl data frame of tweets data with users data attribute.
#' @references <https://developer.twitter.com/en/docs/twitter-api/v1/tweets/timelines/overview>
#' @family tweets
#' @seealso [user_timeline()], [`rtweet-deprecated`]
#' @export
get_timeline <- function(user = NULL,
n = 100,
since_id = NULL,
max_id = NULL,
home = FALSE,
parse = TRUE,
check = TRUE,
retryonratelimit = NULL,
verbose = TRUE,
token = NULL,
...) {
if (!isFALSE(home)) {
lifecycle::deprecate_stop("1.0.0", "get_timeline(home)")
}
user <- user %||% api_screen_name()
rt <- lapply(user, get_timeline_user,
n = n,
since_id = since_id,
max_id = max_id,
home = FALSE,
parse = parse,
check = check,
retryonratelimit = retryonratelimit,
verbose = verbose,
token = token,
...
)
if (parse) {
rt <- do.call(rbind, rt)
rt$created_at <- format_date(rt$created_at)
}
rt
}
#' @rdname get_timeline
#' @export
get_my_timeline <- function(n = 100,
since_id = NULL,
max_id = NULL,
parse = TRUE,
check = TRUE,
retryonratelimit = NULL,
verbose = TRUE,
token = NULL,
...) {
get_timeline_user(
user = api_screen_name(),
n = n,
home = TRUE,
since_id = since_id,
max_id = max_id,
parse = parse,
retryonratelimit = retryonratelimit,
verbose = verbose,
token = token,
...
)
}
get_timeline_user <- function(user,
n = 200,
since_id = NULL,
max_id = NULL,
home = FALSE,
parse = TRUE,
retryonratelimit = NULL,
verbose = TRUE,
token = NULL,
...) {
api <- if (home) "/1.1/statuses/home_timeline" else "/1.1/statuses/user_timeline"
params <- list(
# Undocumented parameter https://github.com/ropensci/rtweet/issues/575#issuecomment-829605892
tweet_mode = "extended",
...
)
params[[user_type(user)]] <- user
result <- TWIT_paginate_max_id(token, api, params,
n = n,
page_size = 200,
since_id = since_id,
max_id = max_id,
retryonratelimit = retryonratelimit,
verbose = verbose,
)
if (parse) {
result <- tweets_with_users(result)
}
result
}
#' @export
#' @rdname get_timeline
#' @usage NULL
get_timelines <- function(user,
n = 100,
max_id = NULL,
home = FALSE,
parse = TRUE,
check = TRUE,
token = NULL,
...) {
lifecycle::deprecate_warn("1.0.0", "get_timelines()", "get_timeline()")
get_timeline(user, n, max_id = max_id, home = home, parse = parse, token = token, ...)
}
|
