context("crm_html")
if (identical(Sys.getenv("NOT_CRAN"), "true")) {
vcr::use_cassette("crm_html_prep", {
url1 <- crm_links("10.7717/peerj.1545", type = "html")
})
}
test_that("crm_html works with links input",{
skip_on_cran()
vcr::use_cassette("crm_html_links_in", {
res <- suppressMessages(crm_html(url1))
}, preserve_exact_body_bytes = TRUE)
expect_is(res, "xml_document")
expect_equal(xml2::xml_name(res), "html")
})
test_that("crm_html works with character URL input", {
skip_on_cran()
vcr::use_cassette("crm_html_character_in", {
res <- suppressMessages(crm_html(url1$html))
}, preserve_exact_body_bytes = TRUE)
expect_is(res, "xml_document")
expect_equal(xml2::xml_name(res), "html")
})
test_that("crm_html fails well",{
skip_on_cran()
expect_error(crm_html(5), "no 'crm_html' method for numeric")
expect_error(crm_html(mtcars), "no 'crm_html' method for data.frame")
expect_error(crm_html(matrix(1:5)), "no 'crm_html' method for matrix")
expect_error(crm_html("adfdf"), "Not a proper url")
expect_error(crm_html(url1, overwrite_unspecified = 5),
"overwrite_unspecified must be of class logical")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.