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