tests/test-ci/test-render-js.R

In lt: Lightweight Tables via JSON Specs and JavaScript

# Core static rendering: table structure, column hiding, HTML escaping,
# raw-HTML I() fields, and automatic column labels.

assert("lt_hide drops a column (header and cells) from the rendered table", {
  x = lt(data.frame(x = 1:2, y = c("a", "b"), z = 3:4)) |> lt_hide("y")
  html = as.character(lt_static(x, method = 'node', css = FALSE, fragment = TRUE))
  # kept columns render; hidden one leaves no header or cells
  (grepl(">x</th>", html) %==% TRUE)
  (grepl(">z</th>", html) %==% TRUE)
  (grepl(">y</th>", html) %==% FALSE)
  (grepl(">a</td>", html) %==% FALSE)
})

assert("table is wrapped in a div for horizontal scroll", {
  html = build(list(data = list(x = 1:2)))
  (has_match(html, '<div class="lt-wrap"><table.*</table></div>'))
})

assert("lt_wrap attributes land on the wrapper, class appended, values escaped", {
  html = build(list(data = list(x = 1), wrap = list(
    class = "foo", style = 'width:1px', id = 'a"b'
  )))
  (has_match(html, '<div class="lt-wrap foo" style="width:1px" id="a&quot;b"><table'))
})

assert("cells are HTML-escaped by default", {
  html = build(list(data = list(x = c("<b>a</b>", "c & d"))))
  (has_match(html, ">&lt;b&gt;a&lt;/b&gt;</td>.*>c &amp; d</td>"))
})

assert("html_cols = TRUE emits all data cells as raw HTML", {
  html = build(list(data = list(x = "<b>a</b>"), html_cols = TRUE))
  (has_match(html, "<td[^>]*><b>a</b></td>"))
})

assert("html_cols marks only the listed columns raw", {
  html = build(list(
    data = list(a = "<i>x</i>", b = "<i>y</i>"),
    html_cols = list("a")
  ))
  # column a is raw, column b is escaped
  (has_match(html, "<td[^>]*><i>x</i></td>"))
  (has_match(html, ">&lt;i&gt;y&lt;/i&gt;</td>"))
})

# Text field (title, label, footnote, ...) wrapped in I() in R arrives as
# one-element array, emitted verbatim; plain string is escaped.
assert("I()-wrapped title is raw HTML; a plain title is escaped", {
  html = build(list(data = list(x = 1), header = list(title = I("<b>T</b>"))))
  (has_match(html, 'class="lt-title"><b>T</b>'))
  html = build(list(data = list(x = 1), header = list(title = "<b>T</b>")))
  (has_match(html, 'class="lt-title">&lt;b&gt;T&lt;/b&gt;'))
})

assert("I()-wrapped column label is raw HTML", {
  html = build(list(
    data = list(a = 1, b = 2),
    ops = list(list(type = "label", labels = list(a = I("<b>A</b>"), b = "<b>B</b>")))
  ))
  # a's label raw, b's escaped
  (has_match(html, "<th[^>]*><b>A</b></th>"))
  (has_match(html, "&lt;b&gt;B&lt;/b&gt;</th>"))
})

assert("html_cols makes separator-row group labels raw HTML", {
  html = build(list(
    data = list(g = c("<b>A</b>", "<b>A</b>", "<b>B</b>"), v = 1:3),
    row_group = "g",
    html_cols = list("g")
  ))
  (has_match(html, 'class="lt-row-group"><th[^>]*><b>A</b></th>'))
  (has_match(html, "<b>B</b></th>"))
})

assert("I()-wrapped spanner, footnote, and note are raw HTML", {
  html = build(list(
    data = list(a = 1, b = 2),
    spanners = list(list(label = I("<b>S</b>"), columns = list("a", "b"))),
    footnotes = list(list(
      text = I("<i>fn</i>"),
      location = list(type = "column_labels", columns = list("a"))
    )),
    notes = list(I("<u>note</u>"))
  ))
  (has_match(html, 'class="lt-spanner"><b>S</b>'))
  (has_match(html, "<i>fn</i></td>"))
  (has_match(html, "<u>note</u></td>"))
})

assert("auto_label replaces separators with spaces in column headers", {
  html = build(list(data = list(Sepal.Length = c(5.1), Petal_Width = c(0.2))))
  (has_match(html, '>Sepal Length</th>.*>Petal Width</th>'))
})

assert("auto_label = FALSE preserves raw column names", {
  html = build(list(data = list(Sepal.Length = c(5.1), Petal_Width = c(0.2)), auto_label = FALSE))
  (has_match(html, '>Sepal\\.Length</th>.*>Petal_Width</th>'))
})