if (interactive()) {
pipeline_dir <- tempdir()
create_pipeline("my_new_pipeline", pipeline_dir, open = FALSE)
schedule <- build_schedule(pipeline_dir = pipeline_dir)
schedule <- run_schedule(
schedule,
orch_frequency = "1 day",
quiet = TRUE
)
show_network(schedule)
}
Run the code above in your browser using DataLab