tests/testthat/test-render.R
In gadenbuie/lorem: Generate Lorem Ipsum Text
test_that("as.tags.lorem() makes htmltools tags", {
withr::local_seed(42)
p3 <- lorem::ipsum(3, 1, 1)
expect_s3_class(as.tags(p3), "shiny.tag.list")
expect_snapshot(htmltools::div(p3))
expect_snapshot(htmltools::tags$ul(as.tags(p3, htmltools::tags$li)))
})
gadenbuie/lorem documentation built on March 18, 2023, 9:19 a.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.
test_that("as.tags.lorem() makes htmltools tags", {
withr::local_seed(42)
p3 <- lorem::ipsum(3, 1, 1)
expect_s3_class(as.tags(p3), "shiny.tag.list")
expect_snapshot(htmltools::div(p3))
expect_snapshot(htmltools::tags$ul(as.tags(p3, htmltools::tags$li)))
})
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.