tests/testthat/test-extractors.R

In mkearney/rtweet: Collecting Twitter Data

test_that("tweets_data works", {
  jack <- lookup_users("jack")

  ## get data on most recent tweet from user(s)
  tweets <- tweets_data(jack)
  expect_s3_class(tweets, "data.frame")
  expect_true("id_str" %in% names(tweets))
})

test_that("users_data works", {
  tweets <- search_tweets("r")
  users <- users_data(tweets)
  expect_s3_class(users, "data.frame")
})