tests/testthat/test-tidyr.R

In dpastoor/phmxversecore: Setup and qualify packages key to pharmacometrics

context("tidyr")

library(tidyr)

test_that("gather properly gathers columns", {
    gTheoph <- Theoph %>% gather(key, value, -Subject)
    expect_true(all(unique(gTheoph$key) %in% c("Wt", "Dose", "Time", "conc")))
})