tests/testthat/test-FDF-extract.R

In privefl/bigdfr: Operate with Data Frames Stored on Disk

context("test-FDF-extract.R")

test_that("extract works", {
  iris <- datasets::iris
  iris$Species <- factor(iris$Species, ordered = TRUE)
  test <- FDF(iris)
  # With internal extract
  expect_identical(extract_dbl(test$address, 1, list(test$ind_row))[[1]],
                   iris[[1]])
  expect_identical(extract_ushort(test$address, 5, list(test$ind_row))[[1]],
                   as.integer(iris[[5]]))
  expect_identical(
    extract_string(test$address, 5, list(test$ind_row), test$strings)[[1]],
    as.character(iris[[5]]))
  # With exported pull
  expect_identical(pull(test, 2), iris[[2]])
  expect_identical(pull(test, 5), iris[[5]])
})