我创建了一个循环,它通过Twitter句柄向量运行,并使用包中的search_tweets函数从它们收集推文rtweet.
下载最新版本的rtweet
## install devtools package if it's not already
if (!requireNamespace("devtools", quietly = TRUE)) {
install.packages("devtools")
}
## install dev version of rtweet from github
devtools::install_github("mkearney/rtweet")
library(rtweet)
创建令牌
## autheticate via web browser
token=create_token(
app = "My_app",
consumer_key = "My Consumer Key",
consumer_secret =
"My Secret Code",set_renv = FALSE)
这是我的Twitter手柄,存储在矢量中
twitter_handles=c("@realDonaldTrump","@HillaryClinton","@MittRomney")
然后我遍历这些句柄,并将每个句柄的结果存储为唯一的数据帧
#Loop through the twitter handles & store the results as individual dataframes
for(handle in twitter_handles) {
result <- search_tweets(handle, n = 3500 , …使用 R 包和 Hugo 短代码将推文嵌入到博客文章中相当容易，如https://bookdown.org/yihui/blogdown/content.htmlblogdown中所述。
我想将推文嵌入到正在编织成独立 HTML 文档的 R markdown 文档中。做这个的最好方式是什么？看起来 Twitter 提供了嵌入推文功能，我可以交互地使用该功能来获取 HTML 来嵌入推文，但我需要在给定推文 ID 的情况下以编程方式执行此操作。
我正在使用packageget_friends函数来获取一组焦点用户的朋友rtweet列表，这些焦点用户是从 Twitter 讨论的参与者中抽取的。user_id该函数返回一个 tibbles 列表。
每个小标题都有两列 - 第一列包含焦点用户的列user_id，第二列包含user_id焦点用户朋友的列。由于每个用户的朋友数量不同，因此每个小标题中的行数不同。
我的问题：由于未知原因，一些焦点用户的帐户现在不存在。因此，该列表有空的 tibbles，如下所示：
> userFriends[[88]]
# A tibble: 0 x 0
非空 tibble 看起来像这样：
> userFriends[2]
[[1]]
# A tibble: 32 x 2
user user_id
<chr> <chr>
1 777937999917096960 49510236
2 777937999917096960 60489018
3 777937999917096960 3190203961
4 777937999917096960 118756393
5 777937999917096960 2338104343
6 777937999917096960 122453931
7 777937999917096960 452830010
8 777937999917096960 60937837
9 777937999917096960 923106269761851392
10 777937999917096960 416882361
# ... with 22 more rows …