tests/testthat/test_bubble_plot.R

In richysix/biovisr: Biological Visualisation Functions

library(biovisr)
library(vdiffr)

set.seed(20229)

test_data_cat <- data.frame(x = factor(rep(LETTERS[1:10], 10)),
                            y = factor(rep(1:10, each = 10), levels = 1:10),
                            size = sample(20:100, 100, replace = TRUE),
                            fill = runif(100))

test_data_num <- data.frame(x = runif(100, min = 1, max = 50),
                            y = runif(100, min = 1, max = 50),
                            size = sample(20:100, 100, replace = TRUE),
                            fill = runif(100))
#cat('got here 1\n')
cat_bubble_plot <- bubble_plot(test_data_cat)
num_bubble_plot <- bubble_plot(test_data_num)

# reverse y factor levels
test_data_cat$y <- factor(test_data_cat$y, levels = 10:1)
#cat('got here 2\n')
cat_bubble_plot_rev <- bubble_plot(test_data_cat)

#cat('got here 3\n')
test_that('categorical plot', {
  expect_doppelganger("categorical bubble plot", cat_bubble_plot)
})

# cat('got here 4\n')
test_that('continuous plot', {
  expect_doppelganger("continuous bubble plot", num_bubble_plot)
})

# cat('got here 5\n')
test_that('categorical plot, y reversed', {
  expect_doppelganger("categorical plot, y reversed", cat_bubble_plot_rev)
})