Nothing
context("qiita_get_users")
test_that("qiita_get_users works", {
skip_on_cran()
skip_on_ci()
users <- qiita_get_users("yutannihilation")
expect_equal(length(users), 1)
expect_equal(users[[1]]$id, "yutannihilation")
})
test_that("qiita_is_following_user works", {
skip_on_cran()
skip_on_ci()
expect_true(qiita_is_following_user("uri"))
# I don't follow myself :)
expect_false(qiita_is_following_user("yutannihilation"))
})
test_that("qiita_get_authenticated_user works", {
skip_on_cran()
skip_on_ci()
expect_equal(qiita_get_authenticated_user()$id, "yutannihilation")
})
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.