tests/testthat/test_get_friends.R

In ashoksiri/rtweet: Collecting Twitter Data

context("get_friends")

test_that("get_friends returns data frame with ids", {
    skip_on_cran()

    token <- readRDS("twitter_tokens")
    f <- get_friends("kearneymw", token = token)

    expect_true(is.data.frame(f))
    ##expect_true(is.character(f[["ids"]]))
    expect_gt(nrow(f), 200)
})