Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(condformat)
  > 
  > test_check("condformat")
  1. Error: print.condformat_tbl returns its input (@test_rendering.R#7) ---------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '4' columns while your css.cell has '5' columns and there are no rownames.
  1: utils::capture.output(out <- print(x)) at testthat/test_rendering.R:7
  2: evalVis(expr)
  3: withVisible(eval(expr, pf))
  4: eval(expr, pf)
  5: eval(expr, pf)
  6: print(x)
  7: print.condformat_tbl(x)
  8: condformat2html(x)
  9: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  10: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 1 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa"
     ), css.cell = structure(c("", "", "", "", ""), .Dim = c(1L, 5L)))
  11: htmlTable.default(x = c("# A tibble: 1 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa"
     ), css.cell = structure(c("", "", "", "", ""), .Dim = c(1L, 5L)))
  12: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  13: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  2. Error: knitr returns an HTML table (@test_rendering.R#14) -------------------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '9' columns while your css.cell has '5' columns and there are no rownames.
  1: knitr::knit_print(condformat(head(iris))) at testthat/test_rendering.R:14
  2: knit_print.condformat_tbl(condformat(head(iris)))
  3: knitr::asis_output(condformat2html(x))
  4: structure(x, class = "knit_asis", knit_meta = meta, knit_cacheable = cacheable)
  5: condformat2html(x)
  6: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  7: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", ""), .Dim = c(6L, 5L)))
  8: htmlTable.default(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", ""), .Dim = c(6L, 5L)))
  9: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  10: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  3. Error: rule_fill_discrete works (@test_rule_fill_discrete.R#10) -------------
  There is an invalid number of columns for the structure(c("; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue"), .Dim = c(30L, 5L)) matrix. Your x argument has '14' columns while your structure(c("; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue"), .Dim = c(30L, 5L)) has '5' columns and there are no rownames.
  1: condformat2html(y) at testthat/test_rule_fill_discrete.R:10
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 30 x 5", "   Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "          <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", " 1          5.1         3.5          1.4         0.2  setosa", 
     " 2          4.9         3.0          1.4         0.2  setosa", " 3          4.7         3.2          1.3         0.2  setosa", 
     " 4          4.6         3.1          1.5         0.2  setosa", " 5          5.0         3.6          1.4         0.2  setosa", 
     " 6          5.4         3.9          1.7         0.4  setosa", " 7          4.6         3.4          1.4         0.3  setosa", 
     " 8          5.0         3.4          1.5         0.2  setosa", " 9          4.4         2.9          1.4         0.2  setosa", 
     "10          4.9         3.1          1.5         0.1  setosa", "# ... with 20 more rows"
     ), css.cell = structure(c("; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue"
     ), .Dim = c(30L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 30 x 5", "   Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "          <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", " 1          5.1         3.5          1.4         0.2  setosa", 
     " 2          4.9         3.0          1.4         0.2  setosa", " 3          4.7         3.2          1.3         0.2  setosa", 
     " 4          4.6         3.1          1.5         0.2  setosa", " 5          5.0         3.6          1.4         0.2  setosa", 
     " 6          5.4         3.9          1.7         0.4  setosa", " 7          4.6         3.4          1.4         0.3  setosa", 
     " 8          5.0         3.4          1.5         0.2  setosa", " 9          4.4         2.9          1.4         0.2  setosa", 
     "10          4.9         3.1          1.5         0.1  setosa", "# ... with 20 more rows"
     ), css.cell = structure(c("; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue"
     ), .Dim = c(30L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  4. Error: rule_fill_discrete lock cells (@test_rule_fill_discrete.R#35) --------
  There is an invalid number of columns for the structure(c("; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue"), .Dim = c(6L, 5L)) matrix. Your x argument has '9' columns while your structure(c("; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue", "; background-color: blue"), .Dim = c(6L, 5L)) has '5' columns and there are no rownames.
  1: condformat2html(y) at testthat/test_rule_fill_discrete.R:35
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue"), .Dim = c(6L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue", "; background-color: blue", 
     "; background-color: blue", "; background-color: blue"), .Dim = c(6L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  5. Error: rule_fill_discrete_ works (@test_rule_fill_discrete.R#64) ------------
  There is an invalid number of columns for the structure(c("; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: #0000FF", "; background-color: #0000FF", "; background-color: #00FF00", "; background-color: #FF0000", "; background-color: #FF0000"), .Dim = c(5L, 5L)) matrix. Your x argument has '8' columns while your structure(c("; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: #0000FF", "; background-color: #0000FF", "; background-color: #00FF00", "; background-color: #FF0000", "; background-color: #FF0000"), .Dim = c(5L, 5L)) has '5' columns and there are no rownames.
  1: condformat2html(y) at testthat/test_rule_fill_discrete.R:64
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 5 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          4.9         3.0          1.4         0.2     setosa", "3          7.0         3.2          4.7         1.4 versicolor", 
     "4          6.3         3.3          6.0         2.5  virginica", "5          5.8         2.7          5.1         1.9  virginica"
     ), css.cell = structure(c("; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: #0000FF", "; background-color: #0000FF", 
     "; background-color: #00FF00", "; background-color: #FF0000", "; background-color: #FF0000"
     ), .Dim = c(5L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 5 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          4.9         3.0          1.4         0.2     setosa", "3          7.0         3.2          4.7         1.4 versicolor", 
     "4          6.3         3.3          6.0         2.5  virginica", "5          5.8         2.7          5.1         1.9  virginica"
     ), css.cell = structure(c("; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: #0000FF", "; background-color: #0000FF", 
     "; background-color: #00FF00", "; background-color: #FF0000", "; background-color: #FF0000"
     ), .Dim = c(5L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  6. Error: rule_fill_discrete_ works with formula (@test_rule_fill_discrete.R#86) 
  There is an invalid number of columns for the structure(c("; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: #00FF00", "; background-color: #00FF00", "; background-color: #FF0000", "; background-color: #FF0000", "; background-color: #FF0000"), .Dim = c(5L, 5L)) matrix. Your x argument has '8' columns while your structure(c("; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: #00FF00", "; background-color: #00FF00", "; background-color: #FF0000", "; background-color: #FF0000", "; background-color: #FF0000"), .Dim = c(5L, 5L)) has '5' columns and there are no rownames.
  1: condformat2html(y) at testthat/test_rule_fill_discrete.R:86
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 5 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          4.9         3.0          1.4         0.2     setosa", "3          7.0         3.2          4.7         1.4 versicolor", 
     "4          6.3         3.3          6.0         2.5  virginica", "5          5.8         2.7          5.1         1.9  virginica"
     ), css.cell = structure(c("; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: #00FF00", "; background-color: #00FF00", 
     "; background-color: #FF0000", "; background-color: #FF0000", "; background-color: #FF0000"
     ), .Dim = c(5L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 5 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          4.9         3.0          1.4         0.2     setosa", "3          7.0         3.2          4.7         1.4 versicolor", 
     "4          6.3         3.3          6.0         2.5  virginica", "5          5.8         2.7          5.1         1.9  virginica"
     ), css.cell = structure(c("; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: #00FF00", "; background-color: #00FF00", 
     "; background-color: #FF0000", "; background-color: #FF0000", "; background-color: #FF0000"
     ), .Dim = c(5L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  7. Error: custom rule_ passes doing nothing (@test_rule_fill_discrete.R#110) ---
  There is an invalid number of columns for the css.cell matrix. Your x argument has '9' columns while your css.cell has '5' columns and there are no rownames.
  1: condformat2html(x) at testthat/test_rule_fill_discrete.R:110
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", ""), .Dim = c(6L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", ""), .Dim = c(6L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  8. Error: rule_fill_gradient works in the limits (@test_rule_fill_gradient.R#8) 
  There is an invalid number of columns for the structure(c("; background-color: #FF0000", "; background-color: #00FF00", "; background-color: #B2C300", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: "), .Dim = c(3L, 5L)) matrix. Your x argument has '6' columns while your structure(c("; background-color: #FF0000", "; background-color: #00FF00", "; background-color: #B2C300", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: "), .Dim = c(3L, 5L)) has '5' columns and there are no rownames.
  1: condformat2html(y) at testthat/test_rule_fill_gradient.R:8
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 3 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          7.0         3.2          4.7         1.4 versicolor", "3          6.3         3.3          6.0         2.5  virginica"
     ), css.cell = structure(c("; background-color: #FF0000", "; background-color: #00FF00", 
     "; background-color: #B2C300", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: "), .Dim = c(3L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 3 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          7.0         3.2          4.7         1.4 versicolor", "3          6.3         3.3          6.0         2.5  virginica"
     ), css.cell = structure(c("; background-color: #FF0000", "; background-color: #00FF00", 
     "; background-color: #B2C300", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: "), .Dim = c(3L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  9. Error: rule_fill_gradient_ works in the limits (@test_rule_fill_gradient.R#24) 
  There is an invalid number of columns for the structure(c("; background-color: #FF0000", "; background-color: #00FF00", "; background-color: #B2C300", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: "), .Dim = c(3L, 5L)) matrix. Your x argument has '6' columns while your structure(c("; background-color: #FF0000", "; background-color: #00FF00", "; background-color: #B2C300", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: "), .Dim = c(3L, 5L)) has '5' columns and there are no rownames.
  1: condformat2html(y) at testthat/test_rule_fill_gradient.R:24
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 3 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          7.0         3.2          4.7         1.4 versicolor", "3          6.3         3.3          6.0         2.5  virginica"
     ), css.cell = structure(c("; background-color: #FF0000", "; background-color: #00FF00", 
     "; background-color: #B2C300", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: "), .Dim = c(3L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 3 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          7.0         3.2          4.7         1.4 versicolor", "3          6.3         3.3          6.0         2.5  virginica"
     ), css.cell = structure(c("; background-color: #FF0000", "; background-color: #00FF00", 
     "; background-color: #B2C300", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: "), .Dim = c(3L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  10. Error: rule_fill_gradient2 works (@test_rule_fill_gradient.R#41) -----------
  There is an invalid number of columns for the structure(c("; background-color: #832424", "; background-color: #9186C3", "; background-color: #FFFFFF", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: "), .Dim = c(3L, 5L)) matrix. Your x argument has '6' columns while your structure(c("; background-color: #832424", "; background-color: #9186C3", "; background-color: #FFFFFF", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: "), .Dim = c(3L, 5L)) has '5' columns and there are no rownames.
  1: condformat2html(y) at testthat/test_rule_fill_gradient.R:41
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 3 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          7.0         3.2          4.7         1.4 versicolor", "3          6.3         3.3          6.0         2.5  virginica"
     ), css.cell = structure(c("; background-color: #832424", "; background-color: #9186C3", 
     "; background-color: #FFFFFF", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: "), .Dim = c(3L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 3 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width    Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>     <fctr>", "1          5.1         3.5          1.4         0.2     setosa", 
     "2          7.0         3.2          4.7         1.4 versicolor", "3          6.3         3.3          6.0         2.5  virginica"
     ), css.cell = structure(c("; background-color: #832424", "; background-color: #9186C3", 
     "; background-color: #FFFFFF", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: ", "; background-color: ", "; background-color: ", "; background-color: ", 
     "; background-color: "), .Dim = c(3L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  11. Error: show_column works (@test_show.R#8) ----------------------------------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '9' columns while your css.cell has '4' columns and there are no rownames.
  1: condformat2html(x) at testthat/test_show.R:8
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 6 x 4", "  Sepal.Width Petal.Length Petal.Width Species", "        <dbl>        <dbl>       <dbl>  <fctr>", 
     "1         3.5          1.4         0.2  setosa", "2         3.0          1.4         0.2  setosa", 
     "3         3.2          1.3         0.2  setosa", "4         3.1          1.5         0.2  setosa", 
     "5         3.6          1.4         0.2  setosa", "6         3.9          1.7         0.4  setosa"
     ), css.cell = structure(c("", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", "", "", ""), .Dim = c(6L, 4L)))
  4: htmlTable.default(x = c("# A tibble: 6 x 4", "  Sepal.Width Petal.Length Petal.Width Species", 
     "        <dbl>        <dbl>       <dbl>  <fctr>", "1         3.5          1.4         0.2  setosa", 
     "2         3.0          1.4         0.2  setosa", "3         3.2          1.3         0.2  setosa", 
     "4         3.1          1.5         0.2  setosa", "5         3.6          1.4         0.2  setosa", 
     "6         3.9          1.7         0.4  setosa"), css.cell = structure(c("", "", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     ""), .Dim = c(6L, 4L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  12. Error: show_column_ works (@test_show.R#20) --------------------------------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '9' columns while your css.cell has '2' columns and there are no rownames.
  1: condformat2html(x) at testthat/test_show.R:20
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 6 x 2", "  Sepal.Length Petal.Length", "         <dbl>        <dbl>", 
     "1          5.1          1.4", "2          4.9          1.4", "3          4.7          1.3", 
     "4          4.6          1.5", "5          5.0          1.4", "6          5.4          1.7"
     ), css.cell = structure(c("", "", "", "", "", "", "", "", "", "", "", ""), .Dim = c(6L, 
     2L)))
  4: htmlTable.default(x = c("# A tibble: 6 x 2", "  Sepal.Length Petal.Length", "         <dbl>        <dbl>", 
     "1          5.1          1.4", "2          4.9          1.4", "3          4.7          1.3", 
     "4          4.6          1.5", "5          5.0          1.4", "6          5.4          1.7"
     ), css.cell = structure(c("", "", "", "", "", "", "", "", "", "", "", ""), .Dim = c(6L, 
     2L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  13. Error: show_column works with custom names (@test_show.R#32) ---------------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '9' columns while your css.cell has '3' columns and there are no rownames.
  1: condformat2html(x) at testthat/test_show.R:32
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 6 x 3", "  MySepLen MyPetWi  MySpe", "     <dbl>   <dbl> <fctr>", 
     "1      5.1     0.2 setosa", "2      4.9     0.2 setosa", "3      4.7     0.2 setosa", 
     "4      4.6     0.2 setosa", "5      5.0     0.2 setosa", "6      5.4     0.4 setosa"
     ), css.cell = structure(c("", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", ""), .Dim = c(6L, 3L)))
  4: htmlTable.default(x = c("# A tibble: 6 x 3", "  MySepLen MyPetWi  MySpe", "     <dbl>   <dbl> <fctr>", 
     "1      5.1     0.2 setosa", "2      4.9     0.2 setosa", "3      4.7     0.2 setosa", 
     "4      4.6     0.2 setosa", "5      5.0     0.2 setosa", "6      5.4     0.4 setosa"
     ), css.cell = structure(c("", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", ""), .Dim = c(6L, 3L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  14. Error: show_row works (@test_show.R#49) ------------------------------------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '4' columns while your css.cell has '5' columns and there are no rownames.
  1: condformat2html(x) at testthat/test_show.R:49
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 1 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa"
     ), css.cell = structure(c("", "", "", "", ""), .Dim = c(1L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 1 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa"
     ), css.cell = structure(c("", "", "", "", ""), .Dim = c(1L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  15. Error: show_row works after modifying data frame (@test_show.R#64) ---------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '4' columns while your css.cell has '5' columns and there are no rownames.
  1: condformat2html(x) at testthat/test_show.R:64
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 1 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          6.1         3.5          1.4         0.2  setosa"
     ), css.cell = structure(c("", "", "", "", ""), .Dim = c(1L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 1 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          6.1         3.5          1.4         0.2  setosa"
     ), css.cell = structure(c("", "", "", "", ""), .Dim = c(1L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  16. Error: custom show_ passes doing nothing (@test_show.R#75) -----------------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '9' columns while your css.cell has '5' columns and there are no rownames.
  1: condformat2html(x) at testthat/test_show.R:75
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", ""), .Dim = c(6L, 5L)))
  4: htmlTable.default(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", ""), .Dim = c(6L, 5L)))
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  17. Error: theme_htmlTable works (@test_theme_htmlTable.R#4) -------------------
  There is an invalid number of columns for the css.cell matrix. Your x argument has '9' columns while your css.cell has '5' columns and there are no rownames.
  1: condformat2html(x) at testthat/test_theme_htmlTable.R:4
  2: do.call(htmlTable::htmlTable, c(list(x = format(xview), css.cell = finalformat$css_cell), 
         finaltheme))
  3: (function (x, ...) 
     {
         UseMethod("htmlTable")
     })(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", ""), .Dim = c(6L, 5L)), caption = "Table 1: MySimpleTestCaption")
  4: htmlTable.default(x = c("# A tibble: 6 x 5", "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species", 
     "         <dbl>       <dbl>        <dbl>       <dbl>  <fctr>", "1          5.1         3.5          1.4         0.2  setosa", 
     "2          4.9         3.0          1.4         0.2  setosa", "3          4.7         3.2          1.3         0.2  setosa", 
     "4          4.6         3.1          1.5         0.2  setosa", "5          5.0         3.6          1.4         0.2  setosa", 
     "6          5.4         3.9          1.7         0.4  setosa"), css.cell = structure(c("", 
     "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
     "", "", "", "", "", "", "", ""), .Dim = c(6L, 5L)), caption = "Table 1: MySimpleTestCaption")
  5: prPrepareCss(x, css = css.cell, rnames = rnames, header = header)
  6: stop("There is an invalid number of columns for the ", name, " matrix.", " Your x argument has '", 
         ncol(x), "' columns", " while your ", name, " has '", ncol(css), "' columns", 
         " and there are ", ifelse(prSkipRownames(rnames), "no", ""), " rownames.")
  
  testthat results ================================================================
  OK: 13 SKIPPED: 0 FAILED: 17
  1. Error: print.condformat_tbl returns its input (@test_rendering.R#7) 
  2. Error: knitr returns an HTML table (@test_rendering.R#14) 
  3. Error: rule_fill_discrete works (@test_rule_fill_discrete.R#10) 
  4. Error: rule_fill_discrete lock cells (@test_rule_fill_discrete.R#35) 
  5. Error: rule_fill_discrete_ works (@test_rule_fill_discrete.R#64) 
  6. Error: rule_fill_discrete_ works with formula (@test_rule_fill_discrete.R#86) 
  7. Error: custom rule_ passes doing nothing (@test_rule_fill_discrete.R#110) 
  8. Error: rule_fill_gradient works in the limits (@test_rule_fill_gradient.R#8) 
  9. Error: rule_fill_gradient_ works in the limits (@test_rule_fill_gradient.R#24) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted