tests/testthat/test_pipeop_chunk.R

context("PipeOpChunk")

test_that("PipeOpChunk - basic properties", {
  expect_pipeop_class(PipeOpChunk, list(1))
  expect_pipeop_class(PipeOpChunk, list(3))
  expect_error(PipeOpChunk$new(0))

  po = PipeOpChunk$new(3)
  expect_pipeop(po)

  expect_data_table(po$input, nrows = 1)
  expect_data_table(po$output, nrows = 3)
})

Try the mlr3pipelines package in your browser

Any scripts or data that you put into this service are public.

mlr3pipelines documentation built on Sept. 21, 2022, 9:09 a.m.