Get tweet status ID from CrossRef Event Data with crevents

tts · April 12, 2019, 7:52am

Package or resource used

URL or code snippet for your use case

tts/aaltoced/blob/b617ec401473cfe7928723e8f2d68be8fa4945ea/getdata.R#L36-L45


dois <- as.vector(unlist(as.list(withdois[, "doi"])))

tweeted <- function(doi, from, to){
  print(paste0("Querying ", doi))
  x <- crev_query(obj_id = doi, source = "twitter",
                  from_occurred_date = from, until_occurred_date = to)
  return(x$message$events)
}

res <- map_dfr(dois, ~ tweeted(.x, "2017-01-01", "2019-04-08"))

Sector

Academic

Field(s) of application

Bibliometrics, altmetrics

Twitter handle

@ttso

What did you do?

I built a Shiny web app on those recent publications of our university that have been tweeted by their DOI. For this, I first queried CrossRef Event Data with crevents, extracted the tweet status id’s from the result, and then fetched the tweet text and other info with rtweet. For the whole story, see my blog post.

Topic		Replies	Views
Shiny apps to search #rstudioglobal or #rstats tweets with rtweet UseCases rtweet	1	1367	February 1, 2021
rcrossref for #TidyTuesday UseCases visualization , rcrossref	2	1815	September 11, 2019
Using rtweet to obtain quotes, mentions and replies of data pulled from full archive search (v2) Package Use Questions rtweet	2	407	July 8, 2022
Using rcrossref to generate set of sample DOIs Package Use Questions	11	2073	January 27, 2015
Feedback on text mining in rcrossref package Package Use Questions	0	1315	January 16, 2015