tests/testthat/test-pl.R

In vspinu/magistral: Lightweight Data and Machine Learning Pipelines

## pl1 <- pl(wrap_logger,
##           a = function(x, a = 1, ...) {inset(x, "a", a)},
##           b = function(x, b = 2, ...) {inset(x, "b", b)})

## pl2 <- pl(pl1,
##           c = function(x, c = 3, ...) {inset(x, "c", c)})

## pl2("isdfds")