Use test_path to make tests easier to run interactively

Avoid partial matching warning in incorporate()

allow overwrite when file_copy()

R/incorporate.R

@@ -166,7 +166,12 @@ incorporate <- function(informant) {
 
   # Get the target table for this informant object
   # TODO: extend the materialize table function to use an agent or informant
-  tbl <- informant$tbl
+  if (rlang::has_name(informant, "tbl")) {
+    # Avoid partial matching
+    tbl <- informant$tbl
+  } else {
+    tbl <- informant$tbl_name
+  }
   tbl_name <- informant$tbl_name
   read_fn <- informant$read_fn
 

tests/testthat/test-get_informant_report.R

@@ -5,7 +5,7 @@ test_that("Getting an information report is possible", {
   # `incorporate()` the snippets into the info text
   informant <- 
     create_informant(
-      tbl = ~ readr::read_csv(file = "test_table.csv", col_types = "TDdcddlc"),
+      tbl = ~ readr::read_csv(file = test_path("test_table.csv"), col_types = "TDdcddlc"),
       tbl_name = "test_table",
       label = "An example."
     ) %>%
@@ -54,7 +54,7 @@ test_that("Getting a more advanced information report is possible", {
 
   informant <- 
     create_informant(
-      tbl = ~ readr::read_csv(file = "penguins.csv", col_types = "ccddddcd"),
+      tbl = ~ readr::read_csv(file = test_path("penguins.csv"), col_types = "ccddddcd"),
       tbl_name = "penguins",
       label = "The `penguins` dataset from the **palmerpenguins** 📦."
     ) %>% 

tests/testthat/test-incorporate_with_informant.R

@@ -5,7 +5,7 @@ test_that("Incorporating an informant yields the correct results", {
   # `incorporate()` the snippets into the info text
   informant <- 
     create_informant(
-      tbl = ~ readr::read_csv(file = "test_table.csv", col_types = "TDdcddlc"),
+      tbl = ~ readr::read_csv(file = testthat::test_path("test_table.csv"), col_types = "TDdcddlc"),
       tbl_name = "test_table",
       label = "An example."
     ) %>%
@@ -41,14 +41,11 @@ test_that("Incorporating an informant yields the correct results", {
 
   # Expect that names in an informant after using
   # `incorporate()` match a prescribed set of names
-  expect_true(
-    all(
-      names(informant_inc) ==
-        c(
-          "tbl", "read_fn", "tbl_name", "info_label",
-          "meta_snippets",  "lang", "locale",
-          "metadata", "metadata_rev"
-        )
+  expect_named(
+    informant_inc,
+    c(
+      "tbl", "read_fn", "tbl_name", "info_label", "meta_snippets", "lang",
+      "locale", "metadata", "metadata_rev"
     )
   )
 
@@ -74,7 +71,7 @@ test_that("Incorporating an informant yields the correct results", {
   expect_no_error(
     informant %>% 
       set_tbl(
-        tbl = function() readr::read_csv(file = "test_table.csv", col_types = "TDdcddlc")
+        tbl = function() readr::read_csv(file = testthat::test_path("test_table.csv"), col_types = "TDdcddlc")
       ) %>% 
       incorporate()
   )
@@ -87,7 +84,7 @@ test_that("Incorporating an informant yields the correct results", {
   informant_inc_2 <- 
     informant_inc %>%
     set_tbl(
-      tbl = ~ readr::read_csv(file = "test_table_2.csv", col_types = "TDdcddlcd")
+      tbl = ~ readr::read_csv(file = test_path("test_table_2.csv"), col_types = "TDdcddlcd")
     ) %>%
     incorporate()
 
@@ -109,7 +106,7 @@ test_that("Incorporating an informant from YAML yields the correct results", {
   # add information with some other `info_*()` functions
   informant <- 
     create_informant(
-      tbl = ~ readr::read_csv(file = "test_table.csv", col_types = "TDdcddlc"),
+      tbl = ~ readr::read_csv(file = test_path("test_table.csv"), col_types = "TDdcddlc"),
       tbl_name = "test_table",
       label = "An example."
     ) %>%
@@ -182,7 +179,7 @@ test_that("Incorporating an informant from YAML yields the correct results", {
   expect_no_error(
     informant_inc_yaml %>% 
       set_tbl(
-        tbl = function() readr::read_csv(file = "test_table.csv", col_types = "TDdcddlc")
+        tbl = function() readr::read_csv(file = test_path("test_table.csv"), col_types = "TDdcddlc")
       ) %>% 
       incorporate()
   )

tests/testthat/test-yaml_exec.R

@@ -91,7 +91,8 @@ test_that("The `yaml_exec()` function effectively processes .yml files", {
   # Copy the YAML files over to the working directory
   fs::file_copy(
     path = c(path_agent, path_informant, path_tbl_store),
-    new_path = getwd()
+    new_path = getwd(),
+    overwrite = TRUE
   )
 
   # Read YAML files from the working directory, write output

tests/testthat/test-yaml_read_informant.R

@@ -4,7 +4,7 @@ test_that("Reading an informant from YAML is possible", {
   # add information with some other `info_*()` functions
   informant <- 
     create_informant(
-      tbl = ~ readr::read_csv(file = "test_table.csv", col_types = "TDdcddlc"),
+      tbl = ~ readr::read_csv(file = test_path("test_table.csv"), col_types = "TDdcddlc"),
       tbl_name = "test_table",
       label = "An example."
     ) %>%