File: test-htmlTable-input_checks.R

package info (click to toggle)
r-cran-htmltable 2.4.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,600 kB
  • sloc: javascript: 6,797; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 355 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
library(testthat)
library('magrittr', warn.conflicts = FALSE)
library('XML', warn.conflicts = FALSE)

# Check that a css.cell passes without errors
test_that("Check css.cell input", {
  expect_match(matrix(1:6, ncol=3) %>%
                 addHtmlTableStyle(css.cell="background: red") %>%
                 htmlTable,
               "background: red")
})