tests/testthat/test_violin_names.R

In TomKellyGenetics/vioplotx: Enhanced Violin Plot

library("vioplotx")
context("names input")

test_that("list input", {
  data(iris)
  vioplotx(iris$Sepal.Length[iris$Species=="setosa"], iris$Sepal.Length[iris$Species=="versicolor"], iris$Sepal.Length[iris$Species=="virginica"], names=c("a", "b", "c"))
})


test_that("naming formulae", {
  data(iris)
  vioplotx(iris$Sepal.Length~iris$Species, names=c("a", "b", "c"))
  vioplotx(Sepal.Length~Species, data=iris, names=c("a", "b", "c"))
  })