context("test-getcomment.R")
with_mock_api({
test_that("get one comment work", {
tar <- "https://news.v.daum.net/v/20100101092104056"
tem <- getComment(tar)
expect_equal(nrow(tem), 1)
})
test_that("get zero comment work", {
tar <- "https://news.v.daum.net/v/20180516222212362"
tem <- getComment(tar)
expect(is.null(tem), T)
})
test_that("get many comment work", {
tar <- "https://news.v.daum.net/v/20180516162315753"
tem <- getComment(tar)
chk <- nrow(tem) > 1
expect(chk, T)
})
test_that("get all comment work", {
tar <- "https://news.v.daum.net/v/20200522093902880"
tem <- getAllComment(tar)
chk <- nrow(tem) > 4000
expect(chk, T)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.