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
)
get_status(schedule)
# Alternatively, use the underlying R6 method
schedule$get_status()
}
Run the code above in your browser using DataLab