Question

我正在使用twitteR R包来收集一些推文。但是，我注意到searchTwitter函数返回的Tweet文本不是完整的推文文本，而是缩写为恰好140个字符，其余文本替换为网络上的推文链接。

使用推文我找到了一个例子：

require(twitteR)
require(ROAuth)

# authorize twitter with consmuer and access key/secret
setup_twitter_oauth(AAA, BBB, CCC, DDD)   # actual secret codes go here...

# get sample tweet
tweet <- searchTwitter("When I was driving around earlier this afternoon I only saw two Hunters",
                       n=500,
                       since = "2017-11-04",
                       until = "2017-11-05",
                       retryOnRateLimit=5000)

# print tweet
tweet[[1]]
[1] "_TooCrazyFox_: When I was driving around earlier this afternoon I only saw two Hunters but it was during the midday break. I didn'… *SHORTENEDURL*"
# the *SHORTENEDURL* is actually a link that brings you to the tweet; stackoverflow didn't want me to a put shortened urls in here

# convert to data frame
df <- twListToDF(tweet)

# output text and ID
df$text
[1] "When I was driving around earlier this afternoon I only saw two Hunters but it was during the midday break. I didn'… *SHORTENEDURL*"

df$id
[1] "926943636641763328"

如果我go to this tweet via my web browser，很明显twitteR将文字缩短为140个字符，并包含指向包含整篇文字的推文的链接。

我在twitteR文档中没有看到任何提及。有没有办法在搜索过程中保留整个推文文本？

我的假设是，这与此处引用的Twitter字符长度的变化有关：https://developer.twitter.com/en/docs/tweets/tweet-updates（在“兼容模式JSON渲染”中）。这意味着我需要检索full_text字段，而不是text字段。但是，这似乎不是由twitteR提供的。

Answer 1

twitteR package is in process of being deprecated。您应该使用rtweet代替。

您可以下载rtweet from CRAN，但目前我建议从Github下载开发版。 dev版本将默认返回推文的全文。它还将返回转发或引用状态的完整原始文本。

要从Github安装最新版本的rtweet，请使用devtools包。

## install newest version of rtweet
if (!requireNamespace("devtools", quietly = TRUE)) {
  install.packages("devtools")
}
devtools::install_github("mkearney/rtweet")

安装完成后，加载rtweet包。

## load rtweet
library(rtweet)

rtweet有一个专门的package documentation website。它包括obtaining and using Twitter API access tokens上的小插图。如果您按照小插图中的步骤操作，则只需[每台机器]执行一次授权过程。

要搜索推文，请使用search_tweets()功能。

# get sample tweet
rt <- search_tweets(
  "When I was driving around earlier this afternoon I only saw two Hunters",
  n = 500
)

打印输出（tbl数据框）。

> rt
# A tibble: 1 x 42
           status_id          created_at    user_id   screen_name
               <chr>              <dttm>      <chr>         <chr>
1 926943636641763328 2017-11-04 22:45:59 3652909394 _TooCrazyFox_
# ... with 38 more variables: text <chr>, source <chr>,
#   reply_to_status_id <chr>, reply_to_user_id <chr>,
#   reply_to_screen_name <chr>, is_quote <lgl>, is_retweet <lgl>,
#   favorite_count <int>, retweet_count <int>, hashtags <list>, symbols <list>,
#   urls_url <list>, urls_t.co <list>, urls_expanded_url <list>,
#   media_url <list>, media_t.co <list>, media_expanded_url <list>,
#   media_type <list>, ext_media_url <list>, ext_media_t.co <list>,
#   ext_media_expanded_url <list>, ext_media_type <lgl>,
#   mentions_user_id <list>, mentions_screen_name <list>, lang <chr>,
#   quoted_status_id <chr>, quoted_text <chr>, retweet_status_id <chr>,
#   retweet_text <chr>, place_url <chr>, place_name <chr>,
#   place_full_name <chr>, place_type <chr>, country <chr>, country_code <chr>,
#   geo_coords <list>, coords_coords <list>, bbox_coords <list>

打印推文（全文）。

> rt$text
[1] "When I was driving around earlier this afternoon I only saw two Hunters but it was during the midday break. I didn't have my camera otherwise I would have taken some photos of the standing corn fields in the snow. I'll do it later., maybe tomorrow.\n#harvest17"

要按ID查找Twitter状态，请使用lookup_statuses()功能。

## lookup tweet
tweet <- lookup_statuses("926943636641763328")

打印推文文字。

> tweet$text
[1] "When I was driving around earlier this afternoon I only saw two Hunters but it was during the midday break. I didn't have my camera otherwise I would have taken some photos of the standing corn fields in the snow. I'll do it later., maybe tomorrow.\n#harvest17"

twitteR返回的推文缩短了

1 个答案: