hash_raw_md5(bitmap_batch) (`actual`) not equal to "68ee8d72e106debce2cc73b14ac9d0a8" (`expected`).

`actual`:   "c69304af3a99abf3006f2dcb0b1909b5"
`expected`: "68ee8d72e106debce2cc73b14ac9d0a8"

"hull_data_list_check works with valid input",
"hull_data_list_check fails with unnamed list",
"hull_data_list_check fails without order column",
"hull_data_list_check fails without value column",
"hull_data_list_check fails with non-unique values",
A=data.frame(order=c(1, 1, 3, 4), value=c(5, 5, 7, 8), dummy=rep(NA, 4)),
test_that("single_variable_check works with valid input", {
test_that("single_variable_check fails without batch column", {
test_that("single_variable_check fails without order column", {
test_that("single_variable_check fails without value column", {
"compute_intra_batch_dispersion works with valid input",
"compute_inter_batch_dispersion works with valid input",
"compute_ratio warns with zero denominator",
"calculate_convex_indicators works with valid input",
all(c("Variable", "InterB", "IntraB", "Ratio") %in% names(result))
"calculate_convex_hull works with valid input",
expect_true(all(sapply(res, function (df) nrow(df) >= 3)))
res_mean <- calculate_convex_hull(data, "blah", "mean")
res_median <- calculate_convex_hull(data, "blah", "median")
expect_true(all(sapply(res_mean, function (df) nrow(df) >= 3)))
"calculate_convex_hull warns with unvalid batch",
"convex_analysis_of_variables works with valid input",
metabolite1 = round(rnorm(30, mean = 100, sd = 10),3),
metabolite2 = round(rnorm(30, mean = 200, sd = 20), 3)
expect_true(all(names(result) == c("data", "indicators", "convex_hulls")))
"convex_analysis_of_variables fails with unvalid input",
test_that("plot_convex_hull works with valid input",
test_that("plot_convex_hull fails with wrong input",
colnames(indicators) <- c("Variable", "interb", "intrab", "ratio")
# Test only page 1 of the pdfs by converting to png and hashing
writePNG(bitmap_batch, target = file.path(tmp_dir, "plot_all_test_batchwise.png"))
writePNG(bitmap_global, target = file.path(tmp_dir, "plot_all_test_global.png"))