if (interactive()) {
pipeline_dir <- tempdir()
create_pipeline("my_new_pipeline", pipeline_dir, open = FALSE)
schedule <- build_schedule(pipeline_dir = pipeline_dir)
invoke(schedule, "my_new_pipeline")
}
Run the code above in your browser using DataLab