Nothing
tests/testit/test-render.R
In lt: Lightweight Tables via JSON Specs and JavaScript
d = data.frame(x = 1:2, y = c("a", "b"))
x = lt(d)
assert("format() returns HTML with script tags", {
html = format(x)
(is.character(html))
(matches(html, ".*<script>.*</script>.*") %==% "")
})
assert("format(fragment = FALSE) wraps in DOCTYPE", {
html = format(x, fragment = FALSE)
(matches(html, ".*<!DOCTYPE html>.*</html>.*") %==% "")
})
assert("format(assets = FALSE) omits runtime", {
html = unclass(format(x, assets = FALSE))
(matches(html, ".*<style>.*") %==% html)
(matches(html, ".*LT\\.build.*") %==% html)
(matches(html, ".*<script>.*") %==% "")
})
assert("inline_safe() escapes </script in content", {
(matches(inline_safe("x</script>y"), ".*<\\\\/script.*") %==% "")
(matches(inline_safe("x</SCRIPT>y"), ".*<\\\\/SCRIPT.*") %==% "")
# does not alter other tags
(inline_safe("x</div>y") %==% "x</div>y")
})
assert("asset_url() uses local file:// when lt.local = TRUE", {
op = options(lt.local = TRUE)
on.exit(options(op))
url = asset_url("lt.js")
(matches(url, ".*file://.*lt\\.js.*") %==% "")
})
assert("asset_url() uses CDN by default", {
op = options(lt.local = NULL, lt.assets_url = NULL)
on.exit(options(op))
url = asset_url("lt.js")
(matches(url, ".*cdn\\.jsdelivr\\.net.*lt\\.min\\.js.*") %==% "")
})
assert("asset_url() respects lt.assets_url option", {
op = options(lt.assets_url = "https://example.com/")
on.exit(options(op))
url = asset_url("lt.js")
(url %==% "https://example.com/lt.js")
})
assert("spec_block() drops css and rules", {
x2 = x
x2$css = "some.css"
x2$rules = ".na { color: red }"
sb = spec_block(x2)
html = paste(sb, collapse = "")
(matches(html, ".*some\\.css.*") %==% html)
(matches(html, ".*color: red.*") %==% html)
(matches(html, ".*window\\.LT.*") %==% "")
})
assert("tidy_html() indents block tags and keeps rows on one line", {
html = c(
'<div class="lt-wrap"><table class="lt-table"><thead>',
'<tr><th>a</th><th>b</th></tr></thead>',
'<tbody><tr><td>1</td><td>2</td></tr></tbody></table></div>'
)
lines = tidy_html(html)
# one line per structural tag, indented by nesting depth
(lines[1] %==% '<div class="lt-wrap">')
(lines[2] %==% ' <table class="lt-table">')
(lines[3] %==% ' <thead>')
(lines[4] %==% ' <tr>')
# each cell stays on its own single line with its content inline
(lines[5] %==% ' <th>a</th>')
(lines[6] %==% ' <th>b</th>')
(lines[7] %==% ' </tr>')
(lines[8] %==% ' </thead>')
# closing tags dedent back to their opening level
(lines[length(lines) - 1] %==% ' </table>')
(lines[length(lines)] %==% '</div>')
})
Try the lt package in your browser
Any scripts or data that you put into this service are public.
lt documentation built on July 10, 2026, 1:09 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.
d = data.frame(x = 1:2, y = c("a", "b"))
x = lt(d)
assert("format() returns HTML with script tags", {
html = format(x)
(is.character(html))
(matches(html, ".*<script>.*</script>.*") %==% "")
})
assert("format(fragment = FALSE) wraps in DOCTYPE", {
html = format(x, fragment = FALSE)
(matches(html, ".*<!DOCTYPE html>.*</html>.*") %==% "")
})
assert("format(assets = FALSE) omits runtime", {
html = unclass(format(x, assets = FALSE))
(matches(html, ".*<style>.*") %==% html)
(matches(html, ".*LT\\.build.*") %==% html)
(matches(html, ".*<script>.*") %==% "")
})
assert("inline_safe() escapes </script in content", {
(matches(inline_safe("x</script>y"), ".*<\\\\/script.*") %==% "")
(matches(inline_safe("x</SCRIPT>y"), ".*<\\\\/SCRIPT.*") %==% "")
# does not alter other tags
(inline_safe("x</div>y") %==% "x</div>y")
})
assert("asset_url() uses local file:// when lt.local = TRUE", {
op = options(lt.local = TRUE)
on.exit(options(op))
url = asset_url("lt.js")
(matches(url, ".*file://.*lt\\.js.*") %==% "")
})
assert("asset_url() uses CDN by default", {
op = options(lt.local = NULL, lt.assets_url = NULL)
on.exit(options(op))
url = asset_url("lt.js")
(matches(url, ".*cdn\\.jsdelivr\\.net.*lt\\.min\\.js.*") %==% "")
})
assert("asset_url() respects lt.assets_url option", {
op = options(lt.assets_url = "https://example.com/")
on.exit(options(op))
url = asset_url("lt.js")
(url %==% "https://example.com/lt.js")
})
assert("spec_block() drops css and rules", {
x2 = x
x2$css = "some.css"
x2$rules = ".na { color: red }"
sb = spec_block(x2)
html = paste(sb, collapse = "")
(matches(html, ".*some\\.css.*") %==% html)
(matches(html, ".*color: red.*") %==% html)
(matches(html, ".*window\\.LT.*") %==% "")
})
assert("tidy_html() indents block tags and keeps rows on one line", {
html = c(
'<div class="lt-wrap"><table class="lt-table"><thead>',
'<tr><th>a</th><th>b</th></tr></thead>',
'<tbody><tr><td>1</td><td>2</td></tr></tbody></table></div>'
)
lines = tidy_html(html)
# one line per structural tag, indented by nesting depth
(lines[1] %==% '<div class="lt-wrap">')
(lines[2] %==% ' <table class="lt-table">')
(lines[3] %==% ' <thead>')
(lines[4] %==% ' <tr>')
# each cell stays on its own single line with its content inline
(lines[5] %==% ' <th>a</th>')
(lines[6] %==% ' <th>b</th>')
(lines[7] %==% ' </tr>')
(lines[8] %==% ' </thead>')
# closing tags dedent back to their opening level
(lines[length(lines) - 1] %==% ' </table>')
(lines[length(lines)] %==% '</div>')
})
Try the lt 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.