Fix bug and test will not fail

pbs-assess · Jan 6, 2024 · 197da86 · 197da86
1 parent cd4be9f
commit 197da86
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/check-yaml.R b/R/check-yaml.R
@@ -57,7 +57,7 @@ check_yaml <- function(type = c("resdoc", "resdoc_pdf", "resdoc_word",
   ))
   x_index <- names(yaml_front_matter("index.Rmd"))
   .diff <- setdiff(x_skeleton, x_index)
-  .diff <- .diff[-tag_exceptions]
+  .diff <- .diff[!.diff %in% tag_exceptions]
   if (length(.diff) > 0L) {
     bail("Your ", fn_color("index.Rmd"), " file is missing the YAML ",
          "tag(s):\n\n", tag_color(paste(.diff, collapse = "\n")))

diff --git a/tests/testthat/test-get-set-render-type.R b/tests/testthat/test-get-set-render-type.R
@@ -18,11 +18,11 @@ test_that("get_render_type() and set_render_type() throw errors", {
   writeLines(rmd, "index.Rmd")
   rmd <- readLines("index.Rmd")
   ind <- grep("csasdown::resdoc_pdf:", rmd)
-  expect_identical(ind, 45L)
+  expect_identical(ind, 51L)
   csasdown:::set_render_type("index.Rmd", "asis")
   rmd <- readLines("index.Rmd")
   ind <- grep("csasdown::resdoc_pdf:", rmd)
-  expect_identical(ind, 45L)
+  expect_identical(ind, 51L)
 
   # ---------------------------------------------------------------------------
   rmd[ind] <- ""