tests/testthat/test-new_df.R

In cheapr: Simple Functions to Save Time and Memory

test_that("data frames", {
  expect_identical(fast_df(), new_df())
  expect_identical(fast_df(x = 1, y = 2, z = 3), new_df(x = 1, y = 2, z = 3))
  expect_identical(
    fast_df(x = 1, 2, 3),
    structure(list(x = 1, 2, 3), row.names = c(NA, -1L), class = "data.frame")
  )
  expect_identical(
    new_df(x = 1, 2, 3),
    structure(list(x = 1, `2` = 2, `3` = 3), row.names = c(NA, -1L), class = "data.frame")
  )


  # Name repair

  expect_identical(
    new_df(x = 1, y = 2, NULL, x = 3, .name_repair = TRUE),
    list_as_df(list(`x...1` = 1, y = 2, `x...3` = 3))
  )

  # Recycling

  expect_identical(
    new_df(x = 1:3, y = 1:9, .recycle = TRUE),
    fast_df(x = rep_len(1:3, 9), y = 1:9)
  )

  # Coercion
  expect_identical(
    as_df(iris),
    iris
  )
  x <- 1:5
  expect_identical(
    as_df(x),
    fast_df(value = x)
  )
  expect_identical(
    as_df(matrix(1:10, ncol = 2)),
    fast_df(V1 = 1:5, V2 = 6:10)
  )

  expect_identical(
    as_df(list(x = x)),
    list_as_df(list(x = x))
  )

})