tests/testthat/test-get_discussions.R

library(ennet)

#links <- get_theme_topics(link = ennet_themes$links[4])
links <- subset(ennet_topics, Theme == "Cross-cutting issues")
x <- get_topic_discussions(link = links$Link[1])

#links <- get_theme_topics(link = get_themes()$links[1])
links <- subset(ennet_topics, Theme == "Announcements & Nutritionists needed")
y <- get_topic_discussions(link = links$Link[1])

test_that("output is a tibble", {
  expect_is(x, "tbl")
  expect_is(y, "tbl")
})


#links <- get_theme_topics(link = (get_themes()$links)[4])
links <- subset(ennet_topics, Theme == "Cross-cutting issues")
x <- get_topics_discussions(link = links[1:3, ])

test_that("output is a tibble", {
  expect_is(x, "tbl")
})

test_that("topics is 3", {
  expect_equal(length(unique(x$topic)), 3)
})
katilingban/ennet documentation built on Nov. 3, 2022, 4:39 p.m.