Home

Awesome

<!-- README.md is generated from README.Rmd. Please edit that file -->

makepipe <img src='man/figures/logo.png' align="right" height="139"/>

<!-- badges: start -->

Codecov test
coverage CRAN
status R-CMD-check

<!-- badges: end -->

The goal of makepipe is to allow for the construction of make-like pipelines in R with very minimal overheads. In contrast to targets (and its predecessor drake) which offers an opinionated pipeline framework that demands highly functionalised code, makepipe is easy-going, being adaptable to a wide range of data science workflows.

A minimal example can be found here: https://github.com/kinto-b/makepipe_example

Installation

You can install the released version of makepipe from CRAN with:

install.packages("makepipe")

And the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("kinto-b/makepipe")

Building a pipeline

To construct a pipeline, one simply needs to chain together a number of make_with_*() statements. When the pipeline is run through, each make_with_*() block is evaluated if and only if the targets are out-of-date with respect to the dependencies (and source file). But, whether or not the block is evaluated, a segment will be added to the Pipeline object behind the scenes. At the end of the script, once the entire pipeline has been run through, one can display the accumulated Pipeline object to produce a flow-chart visualisation of the pipeline. For example:

make_with_source(
  note = "Clean raw survey data and do derivations",
  source = "one.R",
  targets = "data/1 data.Rds",
  dependencies = c("data/raw.Rds", "lookup/concordance.csv")
)

make_with_recipe(
  label = "Merge it!",
  note = "Merge demographic variables from population data into survey data",
  recipe = {
    dat <- readRDS("data/1 data.Rds")
    pop <- readRDS("data/pop.Rds")
    merged_dat <- merge(dat, pop, by = "id")
    saveRDS(merged_dat, "data/2_data.Rds")
  },
  targets = c("data/2 data.Rds"),
  dependencies = c("data/1 data.Rds", "data/pop.Rds")
)

make_with_source(
  note = "Convert data from 'wide' to 'long' format",
  source = "three.R",
  targets = "data/3 data.Rds",
  dependencies = "data/2 data.Rds"
)

show_pipeline()
<img src="man/figures/pipeline_nomnoml_uptodate.png" width="75%" style="display: block; margin: auto;" />

We can also get an interactive visNetwork widget:

show_pipeline(as = "visnetwork")
<img src="man/figures/pipeline_visnetwork_uptodate.png" width="75%" style="display: block; margin: auto;" />

Or a text summary (which can be saved to a .md file),

show_pipeline(as = "text")

#> # Pipeline
#> 
#> ## one.R
#> 
#> Clean raw survey data and do derivations
#> 
#> * Source: 'one.R'
#> * Targets: 'data/1 data.Rds'
#> * File dependencies: 'data/raw.Rds', 'lookup/concordance.csv'
#> * Executed: FALSE
#> * Environment: 0x0000015399acfeb8
#> 
#> ## Merge it!
#> 
#> Merge demographic variables from population data into survey data
#> 
#> * Recipe: 
#> 
#> {
#>     dat <- readRDS("data/1 data.Rds")
#>     pop <- readRDS("data/pop.Rds")
#>     saveRDS(dat, "data/2_data.Rds")
#> }
#> 
#> * Targets: 'data/2 data.Rds'
#> * File dependencies: 'data/1 data.Rds', 'data/pop.Rds'
#> * Executed: TRUE
#> * Execution time: 0.00103879 secs
#> * Result: 0 object(s)
#> * Environment: 0x0000015390c6c568
#> 
#> ## three.R
#> 
#> Convert data from 'wide' to 'long' format
#> 
#> * Source: 'three.R'
#> * Targets: 'data/3 data.Rds'
#> * File dependencies: 'data/2 data.Rds'
#> * Executed: FALSE
#> * Environment: 0x00000153928570f8

Once you’ve constructed a pipeline, you can ‘clean’ it (i.e. delete all registered targets):

p <- get_pipeline()
p$clean()

Then, when you look again at the visualisation, the target nodes will be red not green since they’re out-of-date:

show_pipeline()
<img src="man/figures/pipeline_nomnoml_outofdate.png" width="75%" style="display: block; margin: auto;" />

And then you can ‘rebuild’ to re-execute the entire pipeline and re-create the cleaned targets:

p <- get_pipeline()
p$build()

Another way to build a pipeline is to add a roxygen header into your .R scripts containing a special @makepipe tag along with the @targets, @dependencies, and so on. For example, at the top of script one.R you might have

#'@title Load
#'@description Clean raw survey data and do derivations
#'@dependencies "data/raw.Rds", "lookup/concordance.csv"
#'@targets "data/1 data.Rds"
#'@makepipe
NULL

You can then call make_with_dir(), which will construct a pipeline using all the scripts it finds in the provided directory containing the @makepipe tag.