tests/testthat/test-view-glimpse.R

test_that("View-glimpse returns a data frame", {
    res <- view_glimpse(mtcars)
    withr::local_options("open_view = FALSE")
    expect_s3_class(res, "data.frame")
})
konradedgar/Kmisc documentation built on April 13, 2021, 5:28 a.m.