tests/testthat/test-h5p.R
In SciViews/learndown: R Markdown, Bookdown and Learnr Additions for Learning Material
test_that("h5p() produces an iframe", {
expect_equal(as.character(h5p(1, "https://www.example.com")),
"[]{#h5p_1}[](h5p)\n<iframe src=\"https://www.example.com/wp-admin/admin-ajax.php?action=h5p_embed&id=1\" width=\"780\" height=\"500\" frameborder=\"0\" allowfullscreen=\"allowfullscreen\" class=\"h5p\"></iframe><script src=\"https://www.example.com/wp-content/plugins/h5p/h5p-php-library/js/h5p-resizer.js\" charset=\"UTF-8\"></script>")
})
SciViews/learndown documentation built on Sept. 17, 2024, 8:06 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("h5p() produces an iframe", {
expect_equal(as.character(h5p(1, "https://www.example.com")),
"[]{#h5p_1}[](h5p)\n<iframe src=\"https://www.example.com/wp-admin/admin-ajax.php?action=h5p_embed&id=1\" width=\"780\" height=\"500\" frameborder=\"0\" allowfullscreen=\"allowfullscreen\" class=\"h5p\"></iframe><script src=\"https://www.example.com/wp-content/plugins/h5p/h5p-php-library/js/h5p-resizer.js\" charset=\"UTF-8\"></script>")
})
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.