(v1.1.0.9009) lose dependencies

2025-07-08 10:31:53 +02:00 · 2020-05-18 10:30:53 +02:00
parent 071bdc5a9e
commit bf0402a653
29 changed files with 405 additions and 374 deletions
--- a/tests/testthat/test-first_isolate.R
+++ b/tests/testthat/test-first_isolate.R
@ -188,5 +188,13 @@ test_that("first isolates work", {
  test_unknown$mo <- ifelse(test_unknown$mo == "UNKNOWN", NA, test_unknown$mo)
  expect_equal(sum(first_isolate(test_unknown)),
               1062)
-
+  
+  # shortcuts
+  expect_identical(filter_first_isolate(example_isolates),
+                   subset(example_isolates, first_isolate(example_isolates)))
+  ex <- example_isolates
+  ex$keyab <- key_antibiotics(ex)
+  expect_identical(filter_first_weighted_isolate(example_isolates),
+                   subset(example_isolates, first_isolate(ex)))
+  
 })