# _A multiplexer for your data pipelines_

[![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/taber)](http://cran.r-project.org/package=taber)

[![total_downloads](http://cranlogs.r-pkg.org/badges/grand-total/taber)](http://cran.r-project.org/package=taber)

## taber

`taber` is for people who use `dplyr` and `magrittr`. If your workflow is heavy on pipes, sometimes you need to do different operations on different parts of the data, sometimes that's cleaning or transforming the data. In my own work I deal with flight data and I need to do one set of operations on arrival data and another on departure data but all of it has the same format so I'd like to keep it together as one dataset. 

## Installation

```{r, eval=FALSE}
# taber is available on CRAN
install.packages("taber")

# the development version is available from github and can be installed most easily with devtools
devtools::install_github("restonslacker/taber")
```

## Example: Quicksort
```{r, eval=FALSE}
qsrt_ <- function(.data){
  if(length(.data)==0 || nrow(.data)==0 || all(.data$zed==.data$zed[1])){
    return((.data))
  }

  .data %>% scion(zed<=zed[1], false_fun=qsrt_ ) %>%
    scion(zed!=zed[1]) %>%
    qsrt_ %>%
    graft %>%
    graft
}

data.frame(zed = sample(1:25, 25, FALSE)) %>% qsrt_
```

## About the name

Taber is named for George Lindley Taber, noted American horticulturist and the eponym for my mother's favorite azalea.