tests/testthat/test-print.R

test_that("printing works", {
 skip_if_not(capabilities("long.double"),
             message = "noLD -- skip. Denied to increase tolerance.")
 msdf <- disjoint(trust)
 p_msdf <- print(msdf)
 expect_equal(round(p_msdf$scl_1[1], 2), 0.92)
})

Try the elisr package in your browser

Any scripts or data that you put into this service are public.

elisr documentation built on May 16, 2021, 1:06 a.m.