if (interactive()) {
pipeline_dir <- tempdir()
create_pipeline("my_new_pipeline", pipeline_dir, open = FALSE)
schedule <- build_schedule(pipeline_dir = pipeline_dir)
get_schedule(schedule)
# Alternatively, use the underlying R6 method
schedule$get_schedule()
}
Run the code above in your browser using DataLab