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
|
#' Binds list of data frames while preserving attribute (tweets or users) data.
#'
#' Row bind lists of tweets/users data whilst also preserving and binding
#' users/tweets attribute data.
#'
#' @param x List of parsed tweets data or users data, each of which
#' presumably contains an attribute of the other (i.e., users data
#' contains tweets attribute; tweets data contains users attribute).
#' @return A single merged (by row) data frame (tbl) of tweets or
#' users data that also contains as an attribute a merged (by row)
#' data frame (tbl) of its counterpart, making it accessible via the
#' [users_data()] or [tweets_data()] extractor
#' functions.
#' @family parsing
#' @examples
#'
#' if (auth_has_default()) {
#'
#' ## lapply through three different search queries
#' lrt <- lapply(
#' c("rstats OR tidyverse", "data science", "python"),
#' search_tweets,
#' n = 100
#' )
#'
#' ## convert list object into single parsed data rame
#' rt <- do_call_rbind(lrt)
#'
#' ## preview tweets data
#' rt
#'
#' ## preview users data
#' users_data(rt)
#'
#' }
#'
#' @export
do_call_rbind <- function(x) {
do.call(rbind, x)
}
|
