mirror of
https://github.com/msberends/AMR.git
synced 2025-07-09 13:42:04 +02:00
(v1.3.0.9032) support skimr
This commit is contained in:
@ -45,7 +45,6 @@ test_that("joins work", {
|
||||
expect_true(nrow(unjoined) < nrow(right))
|
||||
expect_true(nrow(unjoined) < nrow(full))
|
||||
|
||||
|
||||
expect_equal(nrow(inner_join_microorganisms("B_ESCHR_COLI")), 1)
|
||||
expect_equal(nrow(inner_join_microorganisms("B_ESCHR_COLI", by = c("mo" = "mo"))), 1)
|
||||
|
||||
|
@ -28,7 +28,6 @@ test_that("rsi works", {
|
||||
expect_true(as.rsi("I") < as.rsi("R"))
|
||||
expect_true(is.rsi(as.rsi("S")))
|
||||
|
||||
|
||||
x <- example_isolates$AMX
|
||||
expect_s3_class(x[1], "rsi")
|
||||
expect_s3_class(x[[1]], "rsi")
|
||||
@ -69,6 +68,14 @@ test_that("rsi works", {
|
||||
expect_error(as.rsi.disk(as.disk(16)))
|
||||
|
||||
expect_error(get_guideline("this one does not exist"))
|
||||
|
||||
expect_s3_class(example_isolates %>%
|
||||
mutate(m = as.mic(2),
|
||||
d = as.disk(20)) %>%
|
||||
skimr::skim(),
|
||||
"data.frame")
|
||||
expect_s3_class(skimr::skim(example_isolates),
|
||||
"data.frame")
|
||||
|
||||
})
|
||||
|
||||
|
Reference in New Issue
Block a user