tests/testthat/test-tweak.R
In Laurae2/pkgdown: Make Static HTML Documentation for a Package
context("tweak")
test_that("tables get class='table'", {
html <- xml2::read_html("<body><table>\n</table></body>")
tweak_tables(html)
html %>%
xml2::xml_find_all(".//table") %>%
xml2::xml_attr("class") %>%
expect_equal("table")
})
test_that("anchors don't get additional newline", {
html <- xml2::read_html('<div class="contents">
<div id="x">
<h1>abc</h1>
</div>
</div>')
tweak_anchors(html)
expect_output_file(
html %>% xml2::xml_find_first(".//h1") %>% as.character() %>% cat(),
"tweak-anchor.html", update = TRUE
)
})
Laurae2/pkgdown documentation built on May 27, 2019, 12:17 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("tweak")
test_that("tables get class='table'", {
html <- xml2::read_html("<body><table>\n</table></body>")
tweak_tables(html)
html %>%
xml2::xml_find_all(".//table") %>%
xml2::xml_attr("class") %>%
expect_equal("table")
})
test_that("anchors don't get additional newline", {
html <- xml2::read_html('<div class="contents">
<div id="x">
<h1>abc</h1>
</div>
</div>')
tweak_anchors(html)
expect_output_file(
html %>% xml2::xml_find_first(".//h1") %>% as.character() %>% cat(),
"tweak-anchor.html", update = TRUE
)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.