tests/testthat/test_pipeop_targetinvert.R

context("PipeOpTargetInvert")

test_that("PipeOpTargetInvert - basic properties", {
  expect_pipeop_class(PipeOpTargetInvert, list(id = "po"))

  po = PipeOpTargetInvert$new("po")

  expect_pipeop(po)
  expect_data_table(po$input, nrows = 2L)
  expect_data_table(po$output, nrows = 1L)
})

Try the mlr3pipelines package in your browser

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

mlr3pipelines documentation built on May 31, 2023, 9:26 p.m.