tests/testthat/test-as-term-frame.R

In nlist: Lists of Numeric Atomic Objects

test_that("as_term_frame.nlist", {
  expect_equal(
    as_term_frame(nlist()),
    data.frame(term = term::term(0), value = numeric(0))
  )
  expect_identical(as_term_frame(nlist(x = 2:4)), structure(list(term = structure(c("x[1]", "x[2]", "x[3]"), class = c(
    "term",
    "vctrs_vctr"
  )), value = c(2, 3, 4)), row.names = c(NA, -3L), class = "data.frame"))
  expect_identical(as_term_frame(nlist(x = 1, y = 1:2)), structure(list(term = structure(c("x", "y[1]", "y[2]"), class = c(
    "term",
    "vctrs_vctr"
  )), value = c(1, 1, 2)), row.names = c(NA, -3L), class = "data.frame"))
})

test_that("as_term_frame.nlists", {
  expect_identical(as_term_frame(nlists()), structure(list(term = structure(character(0), class = c(
    "term",
    "vctrs_vctr"
  )), sample = integer(0), value = numeric(0)), row.names = integer(0), class = "data.frame"))
  expect_identical(as_term_frame(nlists(nlist())), structure(list(term = structure(character(0), class = c(
    "term",
    "vctrs_vctr"
  )), sample = integer(0), value = numeric(0)), row.names = integer(0), class = "data.frame"))
  expect_identical(as_term_frame(nlists(nlist(x = 2))), structure(list(term = structure("x", class = c("term", "vctrs_vctr")), sample = 1L, value = 2), row.names = c(NA, -1L), class = "data.frame"))
  expect_identical(as_term_frame(nlists(nlist(x = 2:4))), structure(list(term = structure(c("x[1]", "x[2]", "x[3]"), class = c(
    "term",
    "vctrs_vctr"
  )), sample = c(1L, 1L, 1L), value = c(2, 3, 4)), row.names = c(
    NA,
    -3L
  ), class = "data.frame"))
  expect_identical(as_term_frame(nlists(nlist(y = 1, s = 1:2))), structure(list(term = structure(c("y", "s[1]", "s[2]"), class = c(
    "term",
    "vctrs_vctr"
  )), sample = c(1L, 1L, 1L), value = c(1, 1, 2)), row.names = c(
    NA,
    -3L
  ), class = "data.frame"))
  expect_equal(as_term_frame(nlists(nlist(x = 1, y = 1:2), nlist(x = 1, y = 3:4))), structure(list(term = structure(c(
    "x", "y[1]", "y[2]", "x", "y[1]",
    "y[2]"
  ), class = c("term", "vctrs_vctr")), sample = c(
    1L, 1L,
    1L, 2L, 2L, 2L
  ), value = c(1, 1, 2, 1, 3, 4)), row.names = c(
    NA,
    -6L
  ), class = "data.frame"))
})