diff --git a/R/files-conflicts.R b/R/files-conflicts.R index a3e7e06..7562b8a 100644 --- a/R/files-conflicts.R +++ b/R/files-conflicts.R @@ -23,7 +23,7 @@ check_referenced_files <- function(path = ".", quiet = FALSE) { # FIXME in Rbuilignore, change `^_pkgdown\.yml$` to `_pkgdown.yml` to make sure it works path <- fs::dir_ls(path = path, recurse = TRUE, regexp = "\\.(R|md|ya?ml|builignore)$", all = TRUE, type = "file") # FIXME Support _pkgdown when you want it. will likely require adjustments, not worth the effort for now. - path <- fs::path_filter(path = path, regexp = "_files|tests/testthat|_book|_freeze|_site|.github|_pkgdown", invert = TRUE) # need to do this in 2 places + path <- fs::path_filter(path = path, regexp = "_files|tests/testthat|_book|_freeze|_site|.github|_pkgdown|\\.revealjs\\.md$|\\.html\\.md$", invert = TRUE) # need to do this in 2 places } else if (fs::path_ext(path) %in% c("R", "yml", "yaml", "Rmd", "md", "qmd", "Rmarkdown", "gitignore", "Rbuildignore")) { path <- path } else { diff --git a/R/outline-criteria.R b/R/outline-criteria.R index 14492ce..b74923b 100644 --- a/R/outline-criteria.R +++ b/R/outline-criteria.R @@ -98,7 +98,7 @@ o_is_tab_plot_title <- function(x) { sep = "|" ) - stringr::str_detect(x, "(?) data diff --git a/tests/testthat/test-outline-criteria.R b/tests/testthat/test-outline-criteria.R index 5828236..a60bca0 100644 --- a/tests/testthat/test-outline-criteria.R +++ b/tests/testthat/test-outline-criteria.R @@ -39,6 +39,8 @@ test_that("o_is_generic_test() works", { test_that("o_is_tab_plot_title() works", { expect_true(o_is_tab_plot_title("title = 'A great'")) + expect_true(o_is_tab_plot_title("title = md('A great')")) + expect_false(o_is_tab_plot_title("tab_header()")) expect_false(o_is_tab_plot_title("```{r tab_header}")) expect_false(o_is_tab_plot_title("fwd_title = 'Family'"))