tests/testthat/test-boxplots.R

In dbplot: Simplifies Plotting Data Inside Databases

test_that("dbplot_boxplot() returns a ggplot", {
  expect_s3_class(dbplot_boxplot(mtcars, am, mpg), "ggplot")
})

test_that("db_compute_boxplot() returns the right number of rows", {
  expect_equal(nrow(db_compute_boxplot(mtcars, am, mpg)), 2)
  expect_equal(nrow(db_compute_boxplot(group_by(mtcars, gear), am, mpg)), 4)
})

test_that("calc_boxplot_mssql() returns the right number of rows", {
  expect_equal(nrow(calc_boxplot_mssql(group_by(mtcars, am), expr(mpg))), 2)
  expect_equal(nrow(calc_boxplot_mssql(group_by(mtcars, am, gear), expr(mpg))), 4)
})

test_that("calc_boxplot_sparklyr() returns the right number of rows", {
  percentile_approx <<- function(x, ...) quantile(x, ...)
  expect_equal(nrow(calc_boxplot_sparklyr(group_by(mtcars, am), expr(mpg))), 2)
  expect_equal(nrow(calc_boxplot_sparklyr(group_by(mtcars, am, gear), expr(mpg))), 4)
})

# Snapshot test for boxplot
test_that("dbplot_boxplot creates expected plot with DuckDB", {
  skip_on_cran()
  skip_on_ci()
  skip_if_not_installed("duckdb")

  set.seed(123)
  con <- DBI::dbConnect(duckdb::duckdb(), ":memory:")
  db_mtcars <- dplyr::copy_to(con, mtcars, "mtcars")

  p <- db_mtcars |> dbplot_boxplot(am, mpg)

  expect_s3_class(p, "ggplot")

  save_plot_snapshot(p, "boxplot-duckdb.png")

  DBI::dbDisconnect(con, shutdown = TRUE)
})