Make corrections to several testthat tests

rstudio · Mar 30, 2019 · e83e48e · e83e48e
1 parent 7dcffb0
commit e83e48e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-tab_options.R b/tests/testthat/test-tab_options.R
@@ -650,14 +650,14 @@ test_that("the internal `opts_df` table can be correctly modified", {
     expect_equal(c("4px", "3px"))
 
   # Modify the `row.striping.include_stub` option
-  tbl_html <- data %>% tab_options(row.striping.include_stub = FALSE)
+  tbl_html <- data %>% tab_options(row.striping.include_stub = TRUE)
 
   # Compare before and after values
   c(opts_df_1 %>%
       dplyr::filter(parameter == "row_striping_include_stub") %>% dplyr::pull(value),
     attr(tbl_html, "opts_df", exact = TRUE) %>%
       dplyr::filter(parameter == "row_striping_include_stub") %>% dplyr::pull(value)) %>%
-    expect_equal(c("TRUE", "FALSE"))
+    expect_equal(c("FALSE", "TRUE"))
 
   # Modify the `row.striping.include_table_body` option
   tbl_html <- data %>% tab_options(row.striping.include_table_body = FALSE)

diff --git a/tests/testthat/test-util_functions.R b/tests/testthat/test-util_functions.R
@@ -361,7 +361,7 @@ test_that("the `get_css_tbl()` function works correctly", {
 
   css_tbl %>% expect_is(c("tbl_df", "tbl", "data.frame"))
 
-  css_tbl %>% dim() %>% expect_equal(c(103, 4))
+  css_tbl %>% dim() %>% expect_equal(c(102, 4))
 
   css_tbl %>%
     colnames() %>%