if (FALSE) {
# get tweet count for conversation thread over approximately 7 days
counts <-
tcn_counts(
ids = c("xxxxxx", "xxxxxx"),
token = token,
endpoint = "all",
start_time = "2020-09-30T01:00:00Z",
end_time = "2020-10-07T01:00:00Z",
granularity = "day"
)
# total tweets per conversation id for period
counts$counts |> dplyr::count(conversation_id, wt = tweet_count)
}
Run the code above in your browser using DataLab