update the example guide when the source guide changes

Author: douwe

data-raw/create_test_guides.R

@@ -2,6 +2,7 @@
 
 sourcename <- "guide_competition_1_0_source.yml"
 targetname <- "guide_competition_1_0.yml"
+examplename <- "example_guide.yml"
 
 source <- yaml::read_yaml(file.path("data-raw", sourcename))
 
@@ -27,8 +28,9 @@ write_yaml_mod <- function(x, file) {
   writeLines(newtxt, file)
 }
 
-# write the source file to the testdata folder
+# write the source file to the testdata and inst/extdata folders
 write_yaml_mod(source, file.path("tests/testthat/testdata", targetname))
+write_yaml_mod(source, file.path("inst/extdata", examplename))
 
 # Take a list s and a list of index numbers and/or names x and return
 # a vector of index numbers in list s correspond to the index names and or

tests/testthat/test-read.R

@@ -64,17 +64,17 @@ test_that("Function read_data works", {
 })
 
 
-test_that("Function read_data using guide with two plates returns two plates", {
-  # guide <- read_guide(test_path("testdata/goodguides/guide_with_two_plates.yml"))
-  # result <- read_data(drfile = test_path('testdata/test1.xlsx'), guide = guide)
-  # expect_equal(length(result$platedata), 2)
-})
+# test_that("Function read_data using guide with two plates returns two plates", {
+#   guide <- read_guide(test_path("testdata/goodguides/guide_with_two_plates.yaml"))
+#   result <- read_data(drfile = test_path('testdata/test1.xlsx'), guide = guide)
+#   expect_equal(length(result$platedata), 2)
+# })
 
-test_that("Function read_data using guide split table returns single table", {
-  # guide <- read_guide(test_path("testdata/goodguides/guide_with_split_table.yml"))
-  # result <- read_data(drfile = test_path('testdata/test2.xlsx'), guide = guide)
-  # expect_equal(length(result$table), 1)
-})
+# test_that("Function read_data using guide split table returns single table", {
+#   # guide <- read_guide(test_path("testdata/goodguides/guide_with_split_table.yml"))
+#   # result <- read_data(drfile = test_path('testdata/test2.xlsx'), guide = guide)
+#   # expect_equal(length(result$table), 1)
+# })
 
 test_that("Version incompatibilities yield an error.", {
   guide <- read_guide(test_path("testdata/erroneousguides/conflicting_min_version.yml"))