Nothing
context("qiita_get_tags")
test_that("qiita_get_tags with tag ID", {
skip_on_cran()
skip_on_ci()
tags <- qiita_get_tags(tag_id = "R")
expect_equal(length(tags), 1)
expect_equal(tags[[1]]$id, "R")
})
test_that("qiita_get_tags with multiple tag IDs", {
skip_on_cran()
skip_on_ci()
tags <- qiita_get_tags(tag_id = c("R", "dplyr"))
expect_equal(length(tags), 2)
expect_equal(purrr::map_chr(tags, "id"), c("R", "dplyr"))
})
test_that("qiita_get_tags with user ID", {
skip_on_cran()
skip_on_ci()
tags <- qiita_get_tags(user_id = "yutannihilation")
expect_true("R" %in% purrr::map_chr(tags, "id"))
})
test_that("qiita_is_following_tag works.", {
skip_on_cran()
skip_on_ci()
expect_true(qiita_is_following_tag("R"))
})
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.