use is.matrix() for a slightly better failure message

inbo · Nov 10, 2023 · 68f591c · 68f591c
1 parent 55d1eba
commit 68f591c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-get_cam_op.R b/tests/testthat/test-get_cam_op.R
@@ -73,7 +73,7 @@ test_that("input camtrap dp is checked properly", {
 
 test_that("output is a matrix", {
   cam_op_matrix <- get_cam_op(mica)
-  expect_true("matrix" %in% class(cam_op_matrix))
+  expect_true(is.matrix(cam_op_matrix))
 })
 
 test_that("output matrix has locations as rownames", {