test_that("infoTable 0 cols", {
tab <- data.frame()
ui <- infoTable(tab)
html <- as.character(ui)
expect_match(html,
paste("^\\n *",
"\\n* *",
"\\n* *",
"
$",
sep = ""))
})
test_that("infoTable 2 cols", {
tab <- data.frame(labels = c("A", "B", "C"),
values = c(1, 2, 3),
stringsAsFactors = FALSE)
ui <- infoTable(tab)
html <- as.character(ui)
expect_match(html,
paste("^\\n *",
"\\n *",
"\\n *| A | \\n *1 | \\n *
\\n *",
"\\n *| B | \\n *2 | \\n *
\\n *",
"\\n *| C | \\n *3 | \\n *
\\n *",
"\\n *",
"
$",
sep = ""))
})
test_that("infoTable 3 cols", {
tab <- data.frame(labels = c("A", "B", "C"),
values = c(1, 2, 3),
extra = c("x", "y", "z"),
stringsAsFactors = FALSE)
ui <- infoTable(tab)
html <- as.character(ui)
expect_match(html,
paste("^\\n *",
"\\n *",
"\\n *| A | \\n *1 | \\n *x | \\n *
\\n *",
"\\n *| B | \\n *2 | \\n *y | \\n *
\\n *",
"\\n *| C | \\n *3 | \\n *z | \\n *
\\n *",
"\\n *",
"
$",
sep = ""))
})