test: replace here::here() with system.file() so tests resolve under R CMD check

here::here("DESCRIPTION") doesn't anchor to the package when R CMD check
copies it to a temp dir lacking project markers, causing get_description,
get_hex, and infer_biocviews tests to fail. system.file() works in both
devtools::test() (source tree) and R CMD check (installed copy).

Author: HDash

tests/testthat/test-get_description.R

@@ -22,8 +22,8 @@ test_that("get_description works", {
                         paths="typo")
   d6 <- get_description(refs=NULL, 
                         paths="typo")
-  d7 <- get_description(refs=NULL, 
-                        paths=here::here("DESCRIPTION")
+  d7 <- get_description(refs=NULL,
+                        paths=system.file("DESCRIPTION", package="rworkflows")
                         )
   d8 <- get_description(refs=c("stats","data.table"), 
                         paths=NULL)

tests/testthat/test-get_hex.R

@@ -8,8 +8,8 @@ test_that("get_hex works", {
   testthat::expect_equal(hex2$rworkflows,
                          hex1$`neurogenomics/rworkflows`)  
   #### When DESCRIPTION path provided ####
-  hex3 <- get_hex(refs=NULL, 
-                  paths=here::here("DESCRIPTION"))
+  hex3 <- get_hex(refs=NULL,
+                  paths=system.file("DESCRIPTION", package="rworkflows"))
   testthat::expect_equal(hex3[[1]],
                          hex1[[1]])
   #### When neither refs nor paths provided ####

tests/testthat/test-infer_biocviews.R

@@ -1,15 +1,17 @@
 test_that("infer_biocviews works", {
   if (!is_gha()) testthat::skip_if_offline(host = "bioconductor.org")
 
-  # Don't run simply bc biocViews::recommendBiocViews is unable
-  ## to find the DESCRIPTION file when running examples.
-  # biocviews1 <- infer_biocviews(pkgdir = "../../")
-  # testthat::expect_equal(biocviews1,"Software")
-  
-  testthat::expect_equal(infer_biocviews(include_branch = FALSE),
+  # Resolve a pkgdir that contains DESCRIPTION in both devtools::test()
+  # (source dir) and R CMD check (installed copy in temp library), since
+  # here::here() doesn't anchor to the package under R CMD check.
+  pkgdir <- dirname(system.file("DESCRIPTION", package = "rworkflows"))
+
+  testthat::expect_equal(infer_biocviews(pkgdir = pkgdir,
+                                         include_branch = FALSE),
                          c("Software","WorkflowManagement"))
   biocviews_manual = c("Software","Genetics","Transcriptomics")
-  testthat::expect_equal(infer_biocviews(biocviews = biocviews_manual),
+  testthat::expect_equal(infer_biocviews(pkgdir = pkgdir,
+                                         biocviews = biocviews_manual),
                          c(biocviews_manual,"WorkflowManagement"))
 
   #### Errors ####