tests/testthat/test_mlr_graphs_greplicate.R

context("ppl - pipeline_greplicate")

test_that("Greplicate Pipeline", {
  op_ds = PipeOpSubsample$new()
  g = pipeline_greplicate(op_ds, n = 3L)
  expect_graph(g)
  expect_character(g$ids(), len = 3L)
  expect_equal(names(g$pipeops), c("subsample_1", "subsample_2", "subsample_3"))
})

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.