tests/testthat/test-ui-infoTable.R

In nuggets: Extensible Framework for Data Pattern Exploration

#######################################################################
# nuggets: An R framework for exploration of patterns in data
# Copyright (C) 2025 Michal Burda
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.
#######################################################################


test_that("infoTable 0 cols", {
    tab <- data.frame()
    ui <- infoTable(tab)
    html <- as.character(ui)

    expect_match(html,
                 paste("^<table class=\"info-table\" width=\"100%\">\\n *",
                       "<tbody>\\n* *",
                       "</tbody>\\n* *",
                       "</table>$",
                       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("^<table class=\"info-table\" width=\"100%\">\\n *",
                       "<tbody>\\n *",
                       "<tr>\\n *<td>A</td>\\n *<td>1</td>\\n *</tr>\\n *",
                       "<tr>\\n *<td>B</td>\\n *<td>2</td>\\n *</tr>\\n *",
                       "<tr>\\n *<td>C</td>\\n *<td>3</td>\\n *</tr>\\n *",
                       "</tbody>\\n *",
                       "</table>$",
                       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("^<table class=\"info-table\" width=\"100%\">\\n *",
                       "<tbody>\\n *",
                       "<tr>\\n *<td>A</td>\\n *<td>1</td>\\n *<td>x</td>\\n *</tr>\\n *",
                       "<tr>\\n *<td>B</td>\\n *<td>2</td>\\n *<td>y</td>\\n *</tr>\\n *",
                       "<tr>\\n *<td>C</td>\\n *<td>3</td>\\n *<td>z</td>\\n *</tr>\\n *",
                       "</tbody>\\n *",
                       "</table>$",
                       sep = ""))
})