Nothing
tests/test-ci/test-browser.R
In xfun: Supporting Functions for Packages Maintained by 'Yihui Xie'
library(testit)
assert('browser_dom() executes JS, returns rendered DOM, and strips scripts', {
f = tempfile(fileext = '.html')
on.exit(unlink(f), add = TRUE)
writeLines(c(
'<html><body><div id="out"></div>',
'<script>document.getElementById("out").textContent = 1 + 1;</script>',
'</body></html>'
), f)
(unclass(browser_dom(f)) %==% '<html><head></head><body><div id="out">2</div></body></html>')
})
assert('browser_dom() saves to output file', {
f = tempfile(fileext = '.html')
out = tempfile(fileext = '.html')
on.exit(unlink(c(f, out)), add = TRUE)
writeLines(c(
'<html><body><p>static</p>',
'<script>\ndocument.body.insertAdjacentHTML("beforeend", "<p>" + (2+3) + "</p>")</script>',
'</body></html>'
), f)
res = browser_dom(f, out)
(res %==% out)
(unclass(file_string(out)) %==% '<html><head></head><body><p>static</p><p>5</p>\n\n</body></html>')
})
assert('browser_dom(fragment = TRUE) returns body content only', {
f = tempfile(fileext = '.html')
on.exit(unlink(f), add = TRUE)
writeLines('<html><head><title>test</title></head>\n<body>\n <p>content\n</p>\t\n</body></html>', f)
res = browser_dom(f, fragment = TRUE)
(unclass(res) %==% '<p>content\n</p>')
})
Try the xfun package in your browser
Any scripts or data that you put into this service are public.
xfun documentation built on July 9, 2026, 5:08 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.
library(testit)
assert('browser_dom() executes JS, returns rendered DOM, and strips scripts', {
f = tempfile(fileext = '.html')
on.exit(unlink(f), add = TRUE)
writeLines(c(
'<html><body><div id="out"></div>',
'<script>document.getElementById("out").textContent = 1 + 1;</script>',
'</body></html>'
), f)
(unclass(browser_dom(f)) %==% '<html><head></head><body><div id="out">2</div></body></html>')
})
assert('browser_dom() saves to output file', {
f = tempfile(fileext = '.html')
out = tempfile(fileext = '.html')
on.exit(unlink(c(f, out)), add = TRUE)
writeLines(c(
'<html><body><p>static</p>',
'<script>\ndocument.body.insertAdjacentHTML("beforeend", "<p>" + (2+3) + "</p>")</script>',
'</body></html>'
), f)
res = browser_dom(f, out)
(res %==% out)
(unclass(file_string(out)) %==% '<html><head></head><body><p>static</p><p>5</p>\n\n</body></html>')
})
assert('browser_dom(fragment = TRUE) returns body content only', {
f = tempfile(fileext = '.html')
on.exit(unlink(f), add = TRUE)
writeLines('<html><head><title>test</title></head>\n<body>\n <p>content\n</p>\t\n</body></html>', f)
res = browser_dom(f, fragment = TRUE)
(unclass(res) %==% '<p>content\n</p>')
})
Try the xfun package in your browser
Any scripts or data that you put into this service are public.
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.