fix tests

Author: rubenarslan

tests/testthat/test_codebook.R

@@ -13,7 +13,7 @@ test_that("codebook generation", {
   on.exit(setwd(wd))
   expect_silent(md <- codebook(bfi))
   figs <- list.files(paste0(dir, "/figure"))
-  expect_equal(length(figs), 8)
+  expect_equal(length(figs), 7)
   expect_match(md, "Scale: BFIK_neuro")
   expect_match(md, "Scale: BFIK_consc")
   expect_match(md, "Missings per variable")
@@ -68,7 +68,7 @@ test_that("Codebook with retest reliabilities can be computed", {
   on.exit(setwd(wd))
   expect_silent(md <- codebook(bfi2))
   figs <- list.files(paste0(dir, "/figure"))
-  expect_equal(length(figs), 6)
+  expect_equal(length(figs), 5)
   expect_match(md, "Scale: BFIK_neuro")
   expect_match(md, "Missings per variable")
   expect_match(md, "56 completed rows")
@@ -107,7 +107,7 @@ test_that("Codebook with multilevel reliability", {
   on.exit(setwd(wd))
   expect_warning(md <- codebook(bfi3))
   figs <- list.files(paste0(dir, "/figure"))
-  expect_equal(length(figs), 7)
+  expect_equal(length(figs), 6)
   expect_match(md, "Scale: BFIK_neuro")
   expect_match(md, "Missings per variable")
   expect_match(md, "168 completed rows")