tests/testthat/test-auto_viol_cont.R

In BiVariAn: Bivariate Automatic Analysis

test_that("auto_violin_cont works", {
  data <- data.frame(group = rep(letters[1:2], 30),
                     var1 = rnorm(30, mean = 15, sd = 5),
                     var2 = rnorm(30, mean = 20, sd = 2),
                     var3 = rnorm(30, mean = 10, sd = 1),
                     var4 = rnorm(30, mean = 5, sd =2))
  data$group<-as.factor(data$group)

  violinplotlist<-auto_viol_cont(data = data, groupvar = "group")

  expect_true(is.list(violinplotlist))

  expect_equal(capture.output(violinplotlist$var1$layers[[1]])[1],"geom_violin: draw_quantiles = NULL, na.rm = FALSE, orientation = NA")

  expect_length(violinplotlist, 4)

  expect_error(auto_viol_cont(data = data, groupvar = "group", theme_func = data), "Argument 'theme_func' must be a valid function")

})