From 766af6204ae3dc1a44fd7b45c61e3c99c023c581 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Llu=C3=ADs?= Date: Fri, 8 Dec 2023 17:40:27 +0100 Subject: [PATCH] Add a test --- tests/testthat/test-inspect.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-inspect.R b/tests/testthat/test-inspect.R index 71548cd..50855a2 100644 --- a/tests/testthat/test-inspect.R +++ b/tests/testthat/test-inspect.R @@ -36,6 +36,7 @@ test_that("inspect with translate_index", { index1 <- replicates(survey[-nas, columns], size_subset = 50, iterations = 25, controls = 15) index2 <- spatial(index1, survey[-nas, columns], iterations = 25) - i1 <- inspect(index, survey[-nas, columns]) - i2 <- inspect(index2, i1) + i1 <- inspect(index1, survey[-nas, columns]) + i2 <- inspect(index2, i1, index_name = "spatial") + expect_true(all(table(i2$batch, i2$spatial)<= 1)) })