fix(test-rd_files): fix locating rd files

ssi-dk · Dec 21, 2023 · 30062b0 · 30062b0
1 parent 73bd1f5
commit 30062b0
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/tests/testthat/test-0_rd_files.R b/tests/testthat/test-0_rd_files.R
@@ -9,11 +9,9 @@ test_field_in_documentation <- function(field) {
   # folder structures during testing, so we need to account for these differences
 
   # Look for the source of .Rd files
-  pkg_path <- base::system.file("", package = testthat::testing_package())
-
-  help_dir <- file.path(pkg_path, "help")
-  man_dir  <- file.path(pkg_path, "man")
-
+  help_dir <- system.file("help", package = testthat::testing_package())
+  man_dir <- system.file("man", package = testthat::testing_package())
+
   testthat::expect_true(any(dir.exists(c(help_dir, man_dir))))
 
   if (checkmate::test_directory_exists(help_dir)) {