tests/testthat/test_columns.R

In tableHTML: A Tool to Create HTML Tables

context("add_css_column testing")

test_that("Function fails for wrong inputs", {
 #no tableHTML
 expect_error(add_css_column(mtcars, css = list('background-color', 'lightgray')),
              'tableHTML needs to be')
 #all checks ok
 expect_error(tableHTML(mtcars) %>%
               add_css_column(css = list(c('background-color', 'border'),
                                      c('lightgray', '3px solid green')),
                              columns = 'mpg') , NA)

 #check css list has same lengths
 expect_error(tableHTML(mtcars) %>%
               add_css_column(css = list(c('background-color', 'height'), 'lightgray')),
              'same length')
})

test_that("css is added with add_css_column", {
 #find style+
 expect_true(
  grepl(
   '<td id="tableHTML_column_1" style="background-color:lightgray;height:30px;">',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = 'mpg')
  )
 )

 expect_true(
  grepl(
   '<td id="tableHTML_column_2" style="background-color:lightgray;height:30px;">',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = 'cyl')
  )
 )

})

test_that("css works fine with additional add_css_column of same style def", {

 expect_true(
  grepl(
   '<td id="tableHTML_column_2" style="background-color:red;background-color:lightgray;height:30px;"',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = 'cyl') %>%
    add_css_column(css = list('background-color', 'red'),
                   columns = 'cyl')
  )
 )

 expect_true(
  grepl(
   '<td id="tableHTML_column_1" style="background-color:red;background-color:lightgray;height:30px;"',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = 'mpg') %>%
    add_css_column(css = list('background-color', 'red'),
                   columns = 'mpg')
  )
 )

})

test_that("css works fine with additional add_css_column of different style def", {

 expect_true(
  grepl(
   '<td id="tableHTML_column_1" style="height:30px;background-color:lightgray;height:30px;"',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = 'mpg') %>%
    add_css_column(css = list('height', '30px'),
                   columns = 'mpg')
  )
 )

 expect_true(
  grepl(
   '<td id="tableHTML_column_2" style="height:30px;background-color:lightgray;height:30px;"',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = 'cyl') %>%
    add_css_column(css = list('height', '30px'),
                   columns = 'cyl')
  )
 )

})

test_that("output has attribute", {
 expect_identical(
  attr(tableHTML(mtcars, headers = letters[1:11]) %>%
        add_css_column(css = list('background-color', 'lightgreen'), columns = 3), 'headers'),
  letters[1:11]
 )

})

test_that("numeric index, character index and column name work fine", {

 expect_true(
  grepl(
   '<td id="tableHTML_column_1" style="background-color:lightgray;height:30px;"',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = 'mpg')
  )
 )

  expect_true(
    grepl(
      '<td id="tableHTML_rownames" style="background-color:lightgray;height:30px;"',
      tableHTML(mtcars) %>%
        add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                       columns = 'rownames')
    )
  )

 expect_true(
  grepl(
   '<td id="tableHTML_column_1" style="background-color:lightgray;height:30px;"',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = '1')
  )
 )

 expect_true(
  grepl(
   '<td id="tableHTML_column_1" style="background-color:lightgray;height:30px;"',
   tableHTML(mtcars) %>%
    add_css_column(css = list(c('background-color', 'height'), c('lightgray', '30px')),
                   columns = 1)
  )
 )

})