tests/testthat/test-histogram_plot.R

In graceyin06/545B-package: Make histogram plots for a certain variable in different groups

test_that("Testing histogram_plot function", {
  require(datateachr)
  require(testthat)
  require(tidyverse)
  a<-histogram_plot(cancer_sample,diagnosis,radius_mean,"radius_mean")
  expect_equal(length(a), 2)
  expect_identical(a[[2]]$labels$x, "radius_mean")
  expect_null(a$scales$scales$range$range)
})