From 7e2cc9c19c171db9a37323c0ae6fd0eaab4b50f6 Mon Sep 17 00:00:00 2001 From: Hadley Wickham Date: Thu, 16 May 2024 10:29:35 -0400 Subject: [PATCH] Fix last linting issue --- tests/testthat/test-templates.R | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/tests/testthat/test-templates.R b/tests/testthat/test-templates.R index a6d54722f..45f87c053 100644 --- a/tests/testthat/test-templates.R +++ b/tests/testthat/test-templates.R @@ -73,12 +73,10 @@ test_that("find templates in local pkgdown first", { # Expected contents ------------------------------------------------------- test_that("BS5 templates have main + aside", { - names <- dir(path_pkgdown("BS5", "templates"), pattern = "content-") + names <- dir_ls(path_pkgdown("BS5", "templates"), regexp = "content-") names <- path_ext_remove(path_file(names)) names <- gsub("content-", "", names) - expect_length(names, 12) - templates <- lapply(names, read_template_html, type = "content", pkg = list(bs_version = 5)