ci: skip if missing file

Author: ethanbass

tests/testthat/test-read_chroms.R

@@ -3,14 +3,19 @@ library(testthat)
 path_csv <- "testdata/dad1.csv"
 path_uv <- "testdata/dad1.uv" #chemstation 131
 
-x <- read_chroms(path_csv, format_in = "chemstation_csv", progress_bar = FALSE)
+x <- read_chroms(path_csv, format_in = "chemstation_csv", progress_bar = FALSE)[[1]]
+
+test_that("Aston parser can read `Agilent Chemstation` 131 files", {
+  skip_if_missing_dependencies()
+  skip_if_not(file.exists(path_csv))
+  skip_if_not(file.exists(path_uv))
 
-test_that("aston parser can read `Agilent Chemstation` 131 files", {
-  skip_if_missing_dependecies()
   paths <- rep(path_uv, 2)
+
   x1 <- read_chroms(paths, format_in = "chemstation_uv", parser = "aston",
                     find_files = FALSE,
                     read_metadata = TRUE, progress_bar = FALSE)
+
   expect_equal(as.numeric(x[[1]][,1]), as.numeric(x1[[1]][, "220.0"]))
   expect_equal(as.numeric(rownames(x[[1]])), as.numeric(rownames(x1[[1]])))
   expect_equal(length(x1), length(paths))