tests/testthat/test-find_page_row_column_variables.R

In cbaumbach/manyregs: manyregs --- Flexible and concise regression analysis

context("find_page_row_column_variables")

test_that("happy path", {
    variables <- list(outcomes = "y", exposures = "x", adjustments = list("z"))
    types <- c(pages = "adjustments", rows = "outcomes", columns = "exposures")
    actual <- find_page_row_column_variables(variables, types)
    expected <- list(pages = list("z"), rows = "y", columns = "x")
    expect_equal(actual, expected)
})