From 79c12c3071d4d621c51b55667c497c1a409c7e45 Mon Sep 17 00:00:00 2001 From: chainsawriot Date: Wed, 30 Jun 2021 10:33:00 +0200 Subject: [PATCH] update 6c for academictwitteR v0.2, don't use positional argument --- modules/6c-labs-code-academic-r.md | 37 ++++++++++++++---------------- 1 file changed, 17 insertions(+), 20 deletions(-) diff --git a/modules/6c-labs-code-academic-r.md b/modules/6c-labs-code-academic-r.md index 5bb84f4..670aded 100644 --- a/modules/6c-labs-code-academic-r.md +++ b/modules/6c-labs-code-academic-r.md @@ -26,8 +26,8 @@ In all of the code samples, you will first need to load the academicTwitteR libr # This will load the academicTwitteR package library(academictwitteR) -# Set your own bearer token (replace the XXXXX with your own bearer token) -bearer_token <- "XXXXX" +# Set your own bearer token +set_bearer() # follow the on-screen instructions to save your bearer token in .Renviron as an environment variable: TWITTER_BEARER=XXXXXX; and restart R. ``` These two lines above will remain the same for all the code examples. @@ -38,10 +38,9 @@ The get_all_tweets function in academicTwitteR get Tweets from the full archive ```R tweets <- - get_all_tweets("from:twitterdev", - "2021-01-01T00:00:00Z", - "2021-05-31T00:00:00Z", - bearer_token) + get_all_tweets(query = "from:twitterdev", + start_tweets = "2021-01-01T00:00:00Z", + end_tweets = "2021-05-31T00:00:00Z") View(tweets$text) ``` @@ -61,10 +60,9 @@ If you want to get Tweets from the full-archive, and want to save it for use lat ```R tweets <- - get_all_tweets("from:twitterdev", - "2021-01-01T00:00:00Z", - "2021-05-31T00:00:00Z", - bearer_token, + get_all_tweets(query = "from:twitterdev", + start_tweets = "2021-01-01T00:00:00Z", + end_tweets = "2021-05-31T00:00:00Z", data_path = "data/", bind_tweets = FALSE) ``` @@ -77,10 +75,9 @@ In the code below, replace the Tweet ID with an ID of your choice to get replies tweets <- get_all_tweets( # Replace with Tweet ID of your choice to get replies - "conversation_id:1403738886275096605", - "2021-01-01T00:00:00Z", - "2021-06-14T00:00:00Z", - bearer_token + query = "conversation_id:1403738886275096605", + start_tweets = "2021-01-01T00:00:00Z", + end_tweets = "2021-06-14T00:00:00Z" ) View(tweets$text) @@ -95,10 +92,10 @@ The `has:geo` operator gives you Tweets that have geo information associated wit ```R tweets <- get_all_tweets( - "covid-19 has:geo", - "2021-01-01T01:00:00Z", - "2021-01-01T02:00:00Z", - bearer_token) + query = "covid-19 has:geo", + start_tweets = "2021-01-01T01:00:00Z", + end_tweets = "2021-01-01T02:00:00Z" + ) View(tweets) ``` @@ -115,8 +112,8 @@ user_ids <- c("2244994945", "6253282") users <- get_user_profile( - user_ids, - bearer_token) + x = user_ids + ) View(users) ```