From a4f984efd2f4dac333b3d4845077cadf7728d120 Mon Sep 17 00:00:00 2001 From: Schiano-NOAA <125507018+Schiano-NOAA@users.noreply.github.com> Date: Fri, 13 Nov 2026 14:00:06 +0000 Subject: [PATCH] style and docs: run devtools::document() and style with styler or air --- tests/testthat/test-create_template.R | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/testthat/test-create_template.R b/tests/testthat/test-create_template.R index 1c9324e0..6b6a4461 100644 --- a/tests/testthat/test-create_template.R +++ b/tests/testthat/test-create_template.R @@ -57,16 +57,16 @@ test_that("create_template() uses journals bibliographies by default", { expect_true(dir.exists(bibliography_dir)) expect_equal(bib_files, journals_bibs) - + expected_lines <- paste0("- bibliography_files/", bib_files) expect_true(all(expected_lines %in% trimws(skeleton))) - + expect_false(file.exists(file.path(report_dir, "asar_references.bib"))) expect_true(file.exists(file.path(report_dir, "journals-bibnames.sty"))) unlink(fs::path(output_dir, "report"), recursive = T) - - + + # bib_file = FALSE---- create_template(bib_file = FALSE) |> suppressWarnings() |> @@ -76,11 +76,11 @@ test_that("create_template() uses journals bibliographies by default", { expect_true(dir.exists(bibliography_dir)) expect_equal(bib_files, "asar_citation.bib") - + skeleton <- readLines(file.path(report_dir, "sar_species_skeleton.qmd")) expected_lines <- paste0("- bibliography_files/", bib_files) expect_true(all(expected_lines %in% trimws(skeleton))) - + unlink(fs::path(output_dir, "report"), recursive = T) })