tests/testthat/test-cat.R

In metrumresearchgroup/pmplots: Plots for Pharmacometrics

library(testthat)

df <- pmplots_data_obs()
id <- pmplots_data_id()


test_that("vector inputs for cont_cat [PMP-TEST-001]", {
  y <- c("ALB", "BMI", "SCR")
  x <- c("RF", "CPc", "STUDYc")
  ans <- cont_cat(df,x,y[1])
  expect_length(ans,length(x))
  ans <- cont_cat(df,x[1],y)
  expect_length(ans,length(y))
  ans <- cont_cat(df,x,y)
  expect_length(ans,length(x)*length(y))
})

test_that("cont_cat jitters points in x-direction only [PMP-TEST-002]", {
  id <- pmplots::pmplots_data_id()
  p <- cont_cat(id, x = "STUDYc", y = "WT", points = TRUE)
  d <- suppressMessages(layer_data(p, 1L))
  expect_equal(d$y, id$WT, tolerance = 1e-5)
})

test_that("points on top of box plot issue-13 [PMP-TEST-003]", {
  a <- cont_cat(id, y = "WT", x = "STUDYc")
  b <- cont_cat(id, y = "WT", x = "STUDYc", points = TRUE)
  points <- list(alpha = 0.8, position = position_jitter(width = 0.1))
  c <- cont_cat(id, y = "WT", x = "STUDYc", points = points)
  expect_is(b, "gg")
  expect_is(c, "gg")
  expect_false(identical(a,b))
  expect_false(identical(a,c))
})

test_that("pass vector or list", {
  y <- list("WT", "SCR")
  x <- "STUDYc"
  z <- cont_cat(id, x, y)
  expect_length(z, 2)
  expect_is(z, "list")
  expect_is(z[[1]], "gg")
})

test_that("cont_cat errors when receiving integer data for x", {
  df$AGE <- as.integer(df$AGE)
  expect_error(
    cont_cat(df, x = "AGE", y = "WT"),
    "column AGE is required to be character"
  )
})