tests/testthat/test-density_plot.R

test_that("density plotting works", {

  res = readRDS(testthat::test_path("data", "res.rds"))

  fake.q = 0.3

  p = density_plot(res, fake.q)

  expect_true(ggplot2::is.ggplot(p))
  expect_error(print(p), NA)

})

Try the idiolect package in your browser

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

idiolect documentation built on Sept. 11, 2024, 5:34 p.m.