tests/testthat/test.polar_coords.R

In KatrionaGoldmann/volcano3D: 3D Volcano Plots and Polar Plots for Three-Class Data

context("polar_coords examples")
library(volcano3D)

test_that("polar_coords tests", {
  data(example_data)
  syn_polar <- polar_coords(outcome = syn_example_meta$Pathotype,
                            data = t(syn_example_rld))
  
  expect_equal(length(unique(syn_polar@df[[1]]$lab) ), 6)
    
})