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
|
#' Get tweets from users, or users from tweets
#'
#' Twitter API endpoints that return tweets also return data about the users who
#' tweeted, and most endpoints that return users also return their last tweet.
#' Showing these additional columns would clutter the default display, so
#' rtweet instead stores in special attributes and allows you to show them
#' with the `user_data()` and `tweets_data()` helpers.
#'
#' @examples
#' if (auth_has_default()) {
#' # find users from tweets
#' tweets <- search_tweets("r")
#' users_data(tweets)
#' full_search <- cbind(tweets, users_data(tweets))
#'
#' # from tweets from users
#' users <- search_users("r")
#' tweets_data(users)
#' full_users <- cbind(users, tweets_data(users))
#' }
#' @return `user_data()` returns a data frame of users; `tweets_data()`
#' returns a data frame of tweets.
#' @param tweets A data frame of tweets.
#' @export
users_data <- function(tweets) {
users <- attr(tweets, "users", exact = TRUE)
if (is.null(users)) {
abort("`tweets` does not have a `users` attribute")
}
users
}
#' @param users A data frame of users.
#' @rdname users_data
#' @export
tweets_data <- function(users) {
tweets <- attr(users, "tweets", exact = TRUE)
if (is.null(tweets)) {
abort("`users` does not have a `tweets` attribute")
}
tweets
}
|
