p <- pipe_new("pipe", data = 1:2)
pipe_add(p, "add1", \(data = ~data, x = 1) x + data)
pipe_add(p, "add2", \(x = 1, y = 2, z = ~add1) x + y + z)
pipe_run(p)
# pipe_get_step_names
pipe_get_step_names(p)
# get_step_number
pipe_get_step_number(p, "add1")
pipe_get_step_number(p, "add2")
# pipe_has_step
pipe_has_step(p, "add1")
pipe_has_step(p, "foo")
# pipe_get_step
add1 <- pipe_get_step(p, "add1")
add1
add1[["params"]]
add1[["fun"]]
try(p$get_step("foo")) # error: step 'foo' does not exist
Run the code above in your browser using DataLab