Use ts_names in an older unit test

bodkan · Jul 24, 2023 · abd8f8e · abd8f8e
1 parent f639365
commit abd8f8e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-ibd.R b/tests/testthat/test-ibd.R
@@ -29,7 +29,7 @@ model <- compile_model(populations = list(pop1, pop2),
                         generation_time = 1, simulation_length = 2000)
 
 ts <- msprime(model, sequence_length = 10e6, recombination_rate = 1e-8)
-samples <- ts_samples(ts) %>% split(., .$pop) %>% lapply(`[[`, "name")
+samples <- ts_names(ts, split = "pop")
 
 pop1_samples <- sample(samples$POP1, 20)
 pop2_samples <- sample(samples$POP2, 20)