tests/testthat/test-s3-data.table.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("data.table", {
  expect_snapshot({
    dt1 <- data.table::data.table(head(cars,2))
    construct(dt1)
    construct(dt1, opts_data.table(selfref = TRUE))
    construct(dt1, opts_data.table("next"))
    construct(dt1, opts_data.table("list"))

    dt2 <- data.table::data.table(dt1, key = "speed")
    construct(dt2)
  })
})

test_that("recycle in data tables", {
  expect_snapshot({
    construct(data.table::data.table(a = 1:2, b = c(1, 1)))
    construct(data.table::data.table(a = c(1, 1), b = c(1, 1)))
    construct(data.table::data.table(a = 1:2, b = factor(c("a", "a"))))
    construct(data.table::data.table(a = 1:2, b = as.Date(c("2000-01-01", "2000-01-01"))))
  })
})

test_that("duplicate names in data tables", {
  expect_snapshot({
    construct(data.table::data.table(a = 1, a =2))
  })
})

test_that("non standard names in data tables", {
  expect_snapshot({
    construct(structure(data.table::data.table(1), names = NULL), check = FALSE)
    construct(structure(data.table::data.table(1), names = ""))
    construct(structure(data.table::data.table(1), names = NA))
    construct(structure(data.table::data.table(1), names = "keep.rownames"))
    construct(structure(data.table::data.table(1), names = "check.names"))
    construct(structure(data.table::data.table(1), names = "key"))
    construct(structure(data.table::data.table(1), names = "stringsAsFactors"))
    construct(structure(data.table::data.table(1, 2), names = c("a", "")))
    construct(structure(data.table::data.table(1, 2), names = c("a", NA)))
    construct(structure(data.table::data.table(1, 2), names = c("a", "keep.rownames")))
    construct(structure(data.table::data.table(1, 2), names = c("a", "check.names")))
    construct(structure(data.table::data.table(1, 2), names = c("a", "key")))
    construct(structure(data.table::data.table(1, 2), names = c("a", "stringsAsFactors")))
  })
})