Nothing
context("get_friends")
test_that("get_friends returns data frame with ids", {
skip_on_cran()
token <- readRDS("twitter_tokens")
rl <- rate_limit(token, "get_followers")
if (rl$remaining > 1) {
f <- get_friends("kearneymw", token = token)
expect_true(is.data.frame(f))
##expect_true(is.character(f[["ids"]]))
expect_gt(nrow(f), 200)
} else {
expect_true(rl$limit == 15)
expect_true(rl$remaining == 0)
expect_true(rl$limit == 15)
expect_true(rl$limit == 15)
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.