if(!is_on_cran()) {
library(raveio)
# ------------ Set up a bare minimal example pipeline ---------------
pipeline_path <- pipeline_create_template(
root_path = tempdir(), pipeline_name = "raveio_demo",
overwrite = TRUE, activate = FALSE, template_type = "rmd-bare")
save_yaml(list(
n = 100, pch = 16, col = "steelblue"
), file = file.path(pipeline_path, "settings.yaml"))
pipeline_build(pipeline_path)
rmarkdown::render(input = file.path(pipeline_path, "main.Rmd"),
output_dir = pipeline_path,
knit_root_dir = pipeline_path,
intermediates_dir = pipeline_path, quiet = TRUE)
utils::browseURL(file.path(pipeline_path, "main.html"))
# --------------------- Example starts ------------------------
pipeline <- pipeline("raveio_demo", paths = tempdir())
pipeline$run("plot_data")
# Run again and you will see some targets are skipped
pipeline$set_settings(pch = 2)
pipeline$run("plot_data")
head(pipeline$read("input_data"))
# or use
pipeline[c("n", "pch", "col")]
pipeline[-c("input_data")]
pipeline$target_table
pipeline$result_table
pipeline$progress("details")
# --------------------- Clean up ------------------------
unlink(pipeline_path, recursive = TRUE)
}
Run the code above in your browser using DataLab