query https://twitter-elastic.pushshift.io/

ngram_search.R

# original python code: https://fosstodon.org/@jasonbaumgartner@infosec.exchange/109376317839501128
# mapping: https://twitter-elastic.pushshift.io/twitter_user/_mapping
library(curl)
library(jsonlite)

ngram_search <- function(q="",size = 10){
  data <- list(query=list())
  data[["query"]][["bool"]] <- list()
  data[["query"]][["bool"]][["must"]] <- list()
  match <- list()
  match[["match"]] <- list(screen_name.ngram = q)
  data[["query"]][["bool"]][["must"]] <- match
  data[['sort']] <- list(followers_count = 'desc')
  data[['size']] <- size
  
  h <- new_handle(verbose = FALSE)
  handle_setheaders(h,"Content-Type" = "application/json")
  handle_setopt(handle = h, postfields=as.character(toJSON(data,auto_unbox = TRUE)), customrequest="GET")
  c <- curl_fetch_memory(url = "https://twitter-elastic.pushshift.io/twitter_user/_search", handle=h)
  df <- fromJSON(rawToChar(c$content))
  tbl <- df$hits$hits
  tbl
  
}
tbl <- ngram_search("NASA")
data.frame(screen_name = tbl$`_source`$screen_name, tbl$`_source`$followers_count)